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1. INTRODUCTION 


Atmospheric conditions encountered by a spacecraft in orbit about the 
Earth are important factors in space vehicle design, mission planning, and 
mission operations. Density is the primary atmospheric property that affects 
the spacecraft's orbital altitude, lifetime, and motion. Density as well as 
chemical composition and temperature are needed in calculating a spacecraft's 
drag coefficient. 

because of variaci.llty of atmospheric conditions with spatial location 
and solar activity, invariant models of the Earth's atmospheric (90 to 2500 
km) would not be useful for most engineering applications. However, a com- 
puterized model developed by L.G. Jacchia in 1970, and revised in 1971 and 
1977, incorporates variation with solar activities and spatial location. 
These Jacchia models can provide at selected times and locations estimates of: 
o density 
o composition 
o temperature 
o molecular mass 
o pressure scales height 

for altitudes between 90 and 2500 km. Currently, NASA/MSPC Space Science 
Laboratory (SSL) is utilizing tlie Jacchia Models which reside on the MSEC 
UNIVAC 1108 computer. 

Atsuko Computing International (ACI), personnel have aided NASA's re- 
search analysis by converting existing Jacchia Models from the UNIVAC 1108 to 
the SSL REEOA Computer System and enhancing the overall program capabilities. 
The Jacchia Models and the associated data bases reside on a REBDA System 
dedicated "JACCHIA" disc pack. 

It is the Intent of this report to be a working document which describes 
the Jacchia programs, explains how to operate them, and depicts the generated 
outputs. These Jacchia programs along with this document should now be of use 
to NASA personnel for continuing the Jacchia analysis effort. 
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2. TECHNICAL DISCUSSION 


Currently, several JACCHIA Model programs exist and are being utilized 

by NASA/MSPC on the UNIVAC 1108 computer; 

o J70 — . New static models of the thermosphere and exosphere 

o J71 — Revised ;tatic models of the thermosphere and exosphere 

o J77 — New models of thermosphere temperature, density and com- 

position. 

These models essentially consist of two parts: 

1) The basic static models, which give temperature and density profiles 
for the relevant atmospheric constituents for any specified exos- 
pheric temperature. 

2) A set of formulae to compute the exosphere temperature and the ex- 
pected deviations from the static models as a result of all recog- 
nized types of thermospheric variation. 

Several types of variation are recognized in the atmospheric regions 
and covered by the JACCHIA Models: 

o Variations with the solar cycle 

o Variations with the daily change in activity on the solar disk 
o The diurnal variation 
o Variations with geomagnetic activity 
o The semi-annual variation 

o Seasonal-latitudinal variations of the lower thermosphere 
o Seasonal-latitudinal variations of helium 

o Rapid density fluctuations probably connected with gravity waves. 

ACI’s primary role in this effort was to convert existing Jacchia Models 
for the UNIVAC 1108 to the REEDA System. In addition, ACI modified and 
utilized various existing REEDA System data reduction programs to maximize 
the Jacchia Model program usefulness in predicting spacecraft orbital decay 
and lifetime. A sequence of events was performed by ACI during this effort to 
accomplish the above objective: 

o Converted the existing 1970 and 1971 Jacchia Models from the UNIVAC 
1108 System to the REEDA System. 
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o Modified the Jacchia Modela to allow for various user Inputs (via the 
HP terminal) to provide for interactive capability. This enhance* 
ment provides for a more generic application in the event that new 
requirements develop. This approach also reduces the program size 
by eliminating t!)e redundancy and allowing the user to provide input 
decision criteria. 

o Modified various existing REEDA System programs to allow the use to 
take advantage of numerous data reduction capabilities for both sta- 
tistical and graphic processing. 
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3. PROGRAM DESCRIPTION 


Initally, the Jacchia Models converted from the UNIVAC 1108 to the REEDA 
System and the existing REEDA System programs that were modified and utilized 
were incorporated into what is termed the "JAC Series Programs". The JAC 
Series Programs are named sequentially JAC01 through JACXX. A brief descrip- 


tion of the initial REEDA System Jacchia programs is as follows; 

o JAC01 — REEDA System Version of UNIVAC 1108 .!acchia Model 70. 

o JAC02 — REEDA System Version of UNIVAC 1108 Jacchia Model 71. 

o JAC03 — REEDA System Version of UNIVAC 1108 Jacchia Model 77, 
(not implemented) 


o JAC0*1 — Generates linear Log number density plots (Ng, Og, 0, HE, 
H, A) according to real-time user inputs for each Jacchia 
Model. 


o JAC05 — Generates Log number "scatter" plots (Ng, Og, 0, HE, H, 
A) according to real-time user inputs for each Jacchia 
Model. 

o JAC06 — Generates linear temperatvJre plots according to real-time 
user inputs for each Jacchia Model. 


Once the above programs were verified against the UNIVAC 1108 Models, 
ACI then implemented the user interaction capability and incorporated the 
above programs into the following three operational Jacchia programs: 

o JAC70 — REEDA Ssytem User Interactive Jacchia 70 Model. 

o JAC71 — REEDA System User Interactive Jacchia 71 Model 

o JPLOT — REEDA System User Interactive Jacchia plot program. 


In the remainder of this report, ACI will detail the JAC70, JAC71 and 
JPLOT programs. Appendix A, B, and C contain a complete FORTRAN source code 
listing of the above programs. 
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>1. PROGRAM OPbRATIONS 


The JACCHIA programs reside on a dedicated REBDA System 7900 disc pad:. 
The user must manually mount the JACCHIA disc peek in order to execute the 
JACCHIA programs. 

Once the JACCHIA oisc is mounted, the user should log-on using his 
assigned individual account name and password. At this point the user can 
process any of these program;-; 

o JAC70 — Jacchia 70 Model 

o JAC71 Jacchia 71 Model 

o JPLOT — Jacchia Plot Program 

To execute the above programs, the user can do so by using a special 
’•transfer" file which replaces all ID segments, executes the desired program, 
and removes the ID segments when completed. The following transfer files will 
execute the desired program: 

o \JAC70 Jacchia 70 Modal 

o \JAC71 Jacchia 71 Model 

o \JPLOT Jacchia Plot Program 

To run a transfer file simply enter the following: 
o :\JAC70 "RETURN" 

If the user desires to modify the existing programs, ACI has provided a 
special transfer file to purge the old load module, recompile program, and 
generate a new load module. The user can execute the following files for this 
purpose : 

o \CLJ70 Compute & Load Jacchia 70 Model 

o \CLJ71 Compute & Load Jacchia 71 Model 

o \CLJPL Compute & Load Jacchia Plot irogram 

A detailed example of the above transfer files is provided within Appen- 
dix E. 
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5. PROGRAM OUTPUTS 


Tlie JACCHIA programs generata various statistical and graphical out- 
puts. This section deplots the following example outputs: 
o JAC70 Outputs 

— Densities (KG/M3) 

— Temperatures (Deg K) 

— N2 
— 02 
— 0 
— A 
— HE 
— H 

— Mean Molecular Weight 
— Log Density (GM/CM3) 

o JAC71 Outputs 

— Temperatures (Deg K) 

— N2 
— 02 
.. 0 
— — A 
— HE 
-*• H 

— Mean Molecular Weight 
— Log Density (Gti/CM3) 

o JPLOT Outputs 

— Temperature Jicohla 70 
— Temperature Jaoohia 71 
— Temperature Jaochia 70-vs-71 
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< -COUTH > LRTITUDEb <*HORTH> 
lON. 50. 60. 70. 00. CO. 

' -WEST > 

< ♦EROT > 



10. 

.434E-09 

.429E-09 

.42IE-09 

.41 IE-09 

,401E-09 


20. 

.437E-09 

.43IE-09 

.422E-09 

.4I2E-09 

.40IE-09 


30. 

.436E-09 

.432E-09 

.423E-09 

.4I2E-09 

.40IE-09 


40. 

.437E-09 

.43IE-09 

.422E-09 

.4I2E-09 

,401E-09 

' 

50. 

.435E-09 

.429E-09 

. 42IE-09 

.4ME-09 

.40IE-09 


60. 

.431E-09 

.425E-09 

.4I8E-09 

.4I0E-09 

.40IE-09 

i 

70. 

.42SE-09 

.42IE-09 

.4I5E-09 

.406E-09 

.401E-09 

s 

00. 

.4tOE-09 

.4I6E-09 

.4I2E-09 

.407E-09 

.40IE-09 


90. 

.41 IE-09 

,41 OE-09 

.407E-09 

.404E-09 

.40IE-09 


1 00. 

.403E-09 

.403E-09 

.403E-09 

.402E-09 

.40IE-09 


MO. 

.395E-09 

.397E-09 

.399E-09 

.400E-09 

.40IE-09 

1 

120. 

. 3erE-09 

, 39IE-09 

,394E-09 

, 3S8E-09 

.40IE-09 

i 

<30. 

.379E-09 

.365E-09 

.390E-09 

.396E-09 

.401E-09 


140. 

, 372E-09 

.379E-09 

.307E-09 

. 394E-09 

,40, H-09 


!50. 

■366E-09 

.374E-09 

, 3S3E-09 

.392E-09 

.401E-09 

1 

!60. 

.360E-09 

.370E-09 

.381E-09 

.391E-09 

,401E-09 

1 

<70. 

.356E-09 

.367E-09 

.376E-09 

.390E-09 

.401E-09 

s 

ISO. 

.353E-09 

.36SE-09 

.377E-09 

.389E-09 

.401E-09 


<90, 

.351E-09 

.363E-09 

.376E-09 

. 388E-09 

.40IE-09 

IT - 

200. 

.350E-09 

.362E-09 

.375E-09 

.388E-09 

401E-09 


210. 

.349E-09 

, 362E-09 

.375E-09 

.380E-O9 

.401E-09 

1 

i . 

220. 

.349E-09 

.3S2E-09 

.375E-09 

.388E-09 

.401E-09 

230. 

.349E-09 

. 362E-09 

.375E-09 

. 388E-09 

,401E-09 


240. 

.349E-09 

.362E-09 

.375E-09 

.388E-09 

.40IE-09 


250. 

.350E-09 

.363E-09 

.376E-09 

.388E-09 

.40IE-09 

■ 

260. 

.353E-09 

. 364E-09 

.377E-09 

. 389E-09 

.40IE-09 

1 

270. 

.3E6E-09 

.367E-09 

.378E-09 

.390E-09 

.40IE-09 


200. 

.36IE-09 

.37IE-09 

. 381E-09 

.391E-09 

.40IE-09 


290. 

.3SeE-09 

.376E-09 

.395E-09 

.393E-09 

.40IE-09 

1 ' 

300. 

.376E-09 

.383E-09 

.389E-09 

.395E-09 

,40tE-09 

1 

110. 

.3&6E-09 

.390E-09 

.394E-09 

.39SE-09 

.401E-09 


320. 

. 395E-09 

.398E-09 

.399E-09 

.400E-09 

.40IE-09 


330. 

• .405E-09 

.405E-09 

.404E-09 

.403E-09 

.401E-09 

g 

140. 

.4I5E-09 

.4I3E-09 

.41 OE-09 

.406E-09 

.401E-09 

i 

150. 

.423E-09 

.4I9E-09 

.4I4E-09 

.400E-09 

.40IE-09 

1 

! 

360. 

.429E-09 

.424E-09 

.418E-09 

.41 OE-09 

.40IE-09 


J 




TEMP. DEC. K 


PxCE I 


') 


YR - ($166 DAY - RO HOMTH ■ « HOUR ■ 12 HIM • 0 

RMJD - 244002R. FtO > 1 00,00 F 1 OB > tOO.OO Cl - 0. 

00 


ALTITUDE 

LON. 

■ 165.0 

-90. 

-BO. 

< -SOUTH) 
-70. 

LATITUDES 

-60. 

< ♦NORTH) 
-50. 

-40. 

-30. 

< -WEST > 
<*EAST) 

10. 

.664E*03 

,676E*03 

.690E*03 

.704E»03 

.7I8E^03 

. 732E+03 

.745E+03 

20. 

.<64E< 03 

.677E*03 

.69IE+03 

.706E*03 

.72IE^03 

, 736E^03 

.750E*03 

30. 

.664E»03 

.677E*03 

.692E*03 

. 7 07E»03 

. 723E^03 

. 737E^03 

. 75ie^03 

40. 

.664E«03 

.677£*03 

.69IE+03 

.706E+03 

.722E^03 

. 736E + 03 

. 750E^03 

so. 

.664E+03 

.676E+03 

.690E*03 

.704E*03 

. 7I9E*03 

.733E*03 

. 746E^03 

60. 

.664E*03 

.675E»03 

.687E»03 

.700E+03 

. 7I4E^03 

. 727E+03 

.740E+03 

70. 

.664E«^03 

.673E*03 

.684E+03 

.696E<’03 

.7(i8E403 

.720E+03 

. 731E+03 

BO. 

.664E*C3 

.67tE*03 

.66 0E'r03 

.69C>E»03 

. 70l£^03 

. 7ME^03 

. 722E*03 

90, 

.664E«03 

.669E+03 

,676E*03 

.684E*03 

. 693E*03 

. 702E+03 

. 7ME+03 

1 00. 

.664E+03 

.667E+03 

.671E+03 

.677E+03 

.6e4F.403 

.692E+03 

. 700E+03 

no. 

.664E*03 

.66Se*03 

.667E»03 

.67IE*03 

.676E+03 

. 6e2E*03 

. 6S8E+03 

120. 

.664E*03 

.662E*03 

.662E+03 

.664E403 

.667E+03 

•672E+03 

.677E+03 

130. 

.664E+03 

.660E+03 

.658E*03 

.658E»03 

.660E+03 

.663E+03 

.666E+03 

140. 

.664E*03 

.659E*03 

.655E*03 

.6S3E»03 

.653E+03 

.654E^03 

.6S7E^03 

ISO. 

.664E«03 

,657E«03 

.6S1E+03 

.648E*03 

.646E^03 

.647E^03 

.648E^03 

160. 

.664E*03 

,655E+03 

.649E+03 

.644E+03 

.64IE+03 

.640E*03 

.64IE^03 

170. 

.664E+03 

.654E*03 

,646E'f03 

.641E403 

.637E^03 

.63SE+03 

.635E*03 

leo. 

.664E-f03 

.653E*03 

.645E403 

. 638E4 03 

.634E*03 

.632E+03 

.63IE+03 

190. 

.664E^03 

.653E*03 

.644E+03 

.637E+03 

.632E^03 

.629E+03 

,628Et03 

200. 

,664E'»03 

.653E*03 

.643E*03 

.636E403 

.63IE+03 

, 629E+03 

.627E+03 

210. 

.664E«^03 

.652E403 

.643E*0J 

. S3SE403 

.63CE+03 

.627E+03 

.626E+03 

220. 

.664E»03 

.652E+03 

.643E+03 

.636E+03 

,630E^03 

62/E+03 

. 626E ♦ 03 

2?0. 

. 664E*03 

,6C2E-*03 

. 643E + 03 

.635E+03 

.63CE^03 

. 62FE*03 

.626E^03 

240. 

.664E+03 

.653E+03 

.643E+03 

.636E+03 

. 630E + 03 

.626E^03 

. 626E + 03 

250. 

.664E+03 

.653E+03 

.643E403 

. 636E4 03 

. 632E403 

.629E403 

.628E^03 

260. 

.664E+03 

.653E+03 

.645E*03 

•63BE+03 

.634E^03 

.63IE+03 

.63IE^03 

270. 

,664E*03 

.654E«03 

.646E*03 

.64IE*03 

.637E+03 

. 636E^03 

.635E+03 

280. 

.664E403 

.656E403 

.649E+03 

.645E+03 

.642E+03 

.642E+03 

.642E403 

290. 

.664E«03 

.6S7E*03 

.653E+03 

.6S0E403 

.649E»03 

.6S0E403 

.652E+03 

300. 

664E+03 

.660E403 

.6S7E+03 

.6S6E'»03 

.657E+03 

.659E+03 

.663E+03 

310. 

.664E403 

.662E403 

.662E+03 

.663E+03 

.666E+C3 

.671E403 

.675E+03 

320. 

.664E*03 

.OSSE'i’OS 

.667E*03 

.67IE«03 

.676E+03 

.663E^03 

.689E+03 

330. 

.664E403 

.668E*03 

.673E+03 

.679E+03 

.6B7E+03 

.69SE+03 

.703E403 

340. 

.664E403 

.670E+03 

.678E*03 

.6B7E+03 

.696E403 

.706E+03 

.7I6E+03 

3S0. 

.664E«03 

.673E»03 

.663E*03 

.694E*03 

. 7O5E+03 

.7I7E+03 

.? 20£*07 

360. 

.664E*03 

.675E«C3 

.667E*03 

.699E403 

.7I3E«03 

.726E+03 

.73BE«03 


J 

D 

D 


TENP. DEC. K 


PACE 2 


f 




VR - I96S DRY - 20 tlONTH ■ 0 HOUR - 12 HIN - 0 


i ' 

XHJD ■ 

altitude 

244002S. 

■ 1CS.0 

FI 0 ■ 1 00. 00 FI OB 

< -SOUTH) 

> 100.00 
LATITUDES 

Cl > 0. 

(♦MORTH) 

00 



LON. 

« -WE6T) 
< ♦EAST) 

-20. 

-10. 

0. 

10. 

20. 

30. 

40. 


10. 

.757E+03 

.767E^03 

.774E+03 

.7S0E»03 

, 782E*03 

.782E*03 

.779E»03 


20. 

.762E*03 

.772E«03 

.760E*03 

. 705E^O3 

.707E+O3 

,7e7E*03 

.784E*03 


30. 

. 763E^03 

.774E*03 

. 7&2E+03 

.767E+03 

. 709E403 

. 769E403 

. 785E403 


40. 

.762E+03 

,77££* )3 

.780E+03 

.785E403 

. 738E+03 

.787E+03 

.784E+03 


SO. 

.758E*03 

. 768E» 03 

. 775E»03 

.7B0E403 

. 783E*03 

.783E+03 

. 780E403 


60. 

.751E+03 

.760E^03 

.768E403 

.773E+03 

.776E403 

.776E*03 

.774E403 


70. 

.742E403 

.751E403 

.753E403 

.763E403 

.766E403 

.767E403 

.766E+03 


SO. 

.73ie+03 

. 739E^03 

.746E^03 

.79IE403 

.754E+03 

.756E^03 

.7S6E*03 

1 

90. 

.7I9E403 

.727E403 

.733E403 

.736E403 

.742E+03 

, 744E403 

.745E+03 


• 00. 

.707E+03 

.7I3E+03 

.719E403 

.724E+03 

.r2'SE*03 

.732E*03 

.734E+03 


; 10. 

.694E«03 

. 700E403 

.705E*03 

.71 OE+03 

. 7I5E+03 

.7I9E+03 

.723E403 


;20. 

.ee2E+03 

.667E403 

.692E+03 

.696E+03 

.70IE403 

.706E*03 

.71 IE+03 


•30. 

.670C-»03 

.674E+03 

,67-3E«03 

.683E403 

.639E+03 

.695E+03 

.70IE403 

® 

•40. 

,660E«03 

.663E^03 

.667E^03 

.672E^03 

.677E*03 

.6S4E^03 

.69IE^03 


ISO. 

.6S0E^03 

.653E*03 

.657E403 

.661E403 

.667E»03 

.674E^03 

.683E403 


•60. 

.643E403 

.645E^03 

.646E403 

.6S2E403 

.659E+03 

.666E403 

.676E+03 


1 70. 

.636E^03 

.636E403 

.64tE^03 

.64SE^03 

.652E+03 

.660E403 

.670E403 

i 

i 

•SO. 

.632E^03 

.633E«03 

.636E403 

.640E403 

.647E403 

.655E403 

.666E403 


•90. 

.626E403 

.629E+03 

.632E+03 

. 637E+ 03 

.643E403 

652E+03 

663E^03 


:oo. 

.627E403 

.628E+03 

.630E403 

.634E+03 

.64IE+03 

.650E403 

.66IE403 

IT 

:i 0. 

.626E403 

.627E403 

.629E+03 

.634E*03 

. 640E+03 

.649E403 

.660E403 

4 

:20. 

.626E403 

.627E+03 

.62'5E403 

.633E+03 

.640E403 

.649E+03 

.660E+03 

1 ^ 

230. 

.626E+03 

.627E+03 

.629E403 

.633E403 

.640E+03 

.649E+03 

.660E403 


:4o. 

.626E+03 

.627£*03 

.63UE403 

.634E+03 

.64IE403 

.650E403 

.66IE403 

* 

:so. 

.626E403 

.629E+03 

.63IE403 

.636E*03 

.642E403 

.651E403 

.662E403 


160. 

.63IE^03 

.632E^03 

.635E403 

.639E«03 

.646E403 

.655E+03 

.665E403 


:?o. 

.636E403 

.636E+03 

.641E403 

.645E403 

.652E403 

.660E403 

.670E403 

i 

290. 

.644E403 

.646E+03 

.649E+03 

.6S4E403 

.660E*03 

.668E403 

.67?E*03 


290. 

.654E^03 

.657E*03 

.66fE^03 

.66SE403 

.671E403 

.678E+03 

.686E403 

• 

:oo. 

.666E^03 

.670E*03 

.674E403 

.679E+03 

.684E403 

.691E+03 

.697E+03 

1 

i 

■to. 

.600E«03 

.6eOE+03 

.690E+03 

.695E+03 

.700E403 

.705E403 

.71 0E403 

i 

:20. 

.695E^03 

. 701E+03 

. 706E^03 

.7I1E«03 

.7I6E4-03 

.720E^03 

.724E^03 


*30. 

.71 1E403 

.7I7E^03 

.723E*03 

.72eE-»03 

.732E4-03 

.735E+03 

.737E+03 


■40, 

.725E403 

.733E+03 

.739E+03 

.744E403 

.749E-*'03 

.750E+03 

.75IE403 

T » 

1 

:50. 

.736E403 

.747E^03 

.754E403 

.7S9E+03 

.762E+03 

.763E403 

.762E403 

1 

i 

-50. 

.749E+03 

.758E403 

.765E+03 

.771E+03 

.774E-403 

.774E*0: 

.772E403 


J 


3 


1 


) 





TENP. DEC. K 


k<*CE 


t 


Iti • 1966 

DAY - ; 

20 MONTH 

- 6 H0U6 > 12 1 

1IN - 0 

• 2440028. 

FIO - 100.00 PlOB 

> 100.00 

Cl - 0 

ALTITUDE 

- 185.0 








< -SOUTH) 

LATITUDES 

< *NOATH> 

.ON. 

SO. 

60. 

70. 

80. 

90. 

• -WEST ) 




■ 


< ♦EAST) 






to. 

.774E^03 

.767E+03 

.757E^03 

.746E*03 

.733E+03 

20. 

. 776E*03 

.770E*03 

. 759E+03 

.747E*03 

. 733E-»03 

30. 

. 779E»03 

.77IE+03 

.760E'^03 

.747E'»03 

. 733E*03 

40. 

. 778E^03 

.770E*03 

.7S9E+03 

.747E+03 

.733E»03 

50. 

. 775E»03 

.767E'»03 

.757E-»03 

.746E'»03 

. 733E*03 

60. 

. 770E-»03 

.763E'»03 

. 754E*03 

.744E*03 

.733E*03 

70. 

.762E^03 

.757E+03 

.75tE»03 

.742E-»03 

.733£»03 

80. 

. 754E*03 

.751E'*03 

.746E»03 

. 740E«03 

.733£*03 

90. 

. 74£E*03 

.744E»03 

.74)E«03 

. 737E+03 

. 733E* 03 

'00. 

.735E*03 

.736E»03 

.736E+03 

.735E+03 

. 733E*03 

110. 

.726E+03 

. 728E«03 

. 731E+03 

. 732E + 03 

.733E»03 

■20. 

. 7I6E'»03 

.72IE'»03 

.725E*03 

.729E--03 

. 733E'»03 

’30. 

. 707E*03 

.7t4E*03 

.72IE+03 

. fZ7E*03 

. 733E + 03 

'40. 

.699E'»03 

.708E-»03 

.716E'»03 

.725E'»03 

. 733£'»03 

150. 

.69264^03 

. 702E«03 

.713E+03 

.723E'»03 

. 733E*03 

<60. 

.696E'»03 

.697E+03 

.709E-f03 

.721E'»03 

.733E*03 

'70. 

.e.eiE + 03 

.694E*03 

.707E*03 

.720E--03 

.733E'»03 

'80. 

. 676E»03 

.691E'»03 

. 70Se*03 

.7I9E'*03 

.733E'»03 

;so. 

.675E+03 

.689E»03 

.704E-»03 

.718E''^03 

. ?33£'»03 

:oo. 

.674E'^03 

.698E+03 

.703E+03 

.718E'»03 

.733E'*03 

:io. 

. 6?3E-'03 

, 687E+03 

. 703E'*03 

.7tSE-^03 

. 735E* 03 

:2o. 

.673E+03 

.687E'»03 

.702E+03 

.718E+03 

.733E-»03 

230. 

.673E+03 

.687E+03 

.702E+03 

.718E+03 

.733E-»03 

240. 

.674E«03 

.tSSE'fOS 

.703E'»03 

. 7l8E-*03 

. 735E'» 03 

.,50. 

.675E+03 

.689E+03 

.703E+03 

.7ieE->03 

.733E^03 

260. 

.677E^03 

.69tE‘<’03 

.705E'f03 

. 7I9E+03 

. 733E+03 

270. 

.60tE'»03 

.694E-»03 

.707E-»03 

.720E-»03 

. 733£*03 

280. 

.667E^03 

.698E«03 

.71 0E^03 

.722E«03 

.733B*03 

290. 

.eSSE'^OS 

.704E+03 

.714E*03 

.724E+03 

.733E'»03 

300 . 

. 704E'»03 

.7I2E+03 

.7I9E'*03 

.726E«03 

.733E+03 

310 . 

.7I5E^03 

.720E>02. 

.725E+03 

.729E+03 

.733E»03 

•20. 

. 727E'»03 

.729E'»03 

.731E»03 

.732E-»03 

.733E*03 

730. 

. 738E+03 

.736E^03 

.737E'»03 

.736E+03 

.733E-»03 

■40. 

.750E-'-03 

.747Ef03 

.743E+03 

.739E+03 

.733E+03 

•50. 

.760E«03 

.755E'»03 

.749E*03 

.741E'»03 

.7.-.3E + 03 

360. 

.768E'f03 

.762E«03 

.754E*03 

.744E'»03 

.733E«03 


D 



» 


> (N2> PmGE t 


m - 1968 

OAV - 20 

MONTH 

- 6 HOt'R 

- 12 HIN - 0 



■ £ 

440028. Ft 

0 - 100.00 noB - 

100.00 

01 - 0. 

00 


aLTlTUOE 

■ 185.0 










( -SOUTH) LATITUOES 

<«HOATH> 



-ON. 

-90. 

-80. 

-70. 

-60. 

-SO. 

-40. 

-30. 

-WEST) 








♦E9ST) 








10. 

.960E*01 

961E*01 

,9fc3E»01 

.965E*0t 

.967E»01 

.969E+01 

.970E»0t 

20. 

.960E*0I 

962E'»0I 

.964E*0I 

.965E+0I 

,967E«0f 

.969E+0I 

.971E*0I 

30. 

, 960E*0I 

962E«01 

.964E*01 

.966E*0I 

,968E*0I 

.969E*0I 

.971E*0I 

40. 

.')60E'*01 

962E«0I 

.964EtOI 

.966E+0I 

.967E*01 


.971E*0I 

SO. 

,960E*0I 

96IE'»0I 

.963E«^0I 

.965E*01 

.967E»0I 

,969E*0I 

,970E«0I 

60. 

,96 0E'»OI 

96IE*0I 

963E*0I 

.96SE*01 

. 966E *01 

.968E«0I 

.970E»0I 

70. 

.960E*0t 

96IE-^0I 

.963E^0I 

.964t'tO! 

.966E*0I 

.967E*0I 

.sesE-^oi 

• 0. 

. 960E*0I 

96IE*0f 

.962E»0I 

.963E»0I 

. 965E + 0I 

.96«C(0I 

.967E«0I 

90. 

.960E*OI 

960E+01 

.96IE*0I 

.962E«0t 

.964E»0I 

.965E+01 

.966E«0I 

1 00. 

.960E«01 

960E»0I 

.96tE«OI 

.962E40I 

,963E'*0I 

.964E*01 

.96EE+01 

' to. 

.960E*0I 

960E*OI 

.96OE*0l 

.961E«01 

,96IE*0I 

,96£E»0I 

.SSSE'fOl 

‘20. 

.960E+01 

959E+01 

.9S9E*01 

.960E+01 

.960E+0I 

.96IE«0I 

.962E*0I 

30. 

.960E'*01 

959E+01 

.■S-SSE + OI 

.959E'»01 

.959E+0I 

.959E^01 

.960E+0I 

'40. 

.OfOE+OI 

959E^01 

.938E*0I 

.958E*0I 

.'9SeE*0l 

.958E+0I 

.959E+0I 

:50. 

,960E«0I 

955E'*0I 

.95ee*0l 

.937E-»01 

.957E+0I 

.957E+0I 

.957E+0I 

'60. 

,960E*0I 

958E+01 

.957E+01 

.9b7E*01 

.956E+0t 

.956E*0I 

.956E+0I 

'70. 

.96 0E'»0t 

9S8E+01 

.957E*0I 

.956E+01 

,955E*0I 

. 955E+0* 

, 955E+0I 

'90. 

,960E«0I 

958E+0I 

.957E+0I 

,956E«0I 

.958E+0I 

.955E401 

.954E+0I 

:90. 

.960E»01 

958E*01 

,956E+01 

.955E+01 

.95EE'*0I 

.954E*0I 

.954E*0I 

:oo. 

.960E+0I 

95SE*0t 

, 956E*0I 

.955E+0I 

.954E+0I 

. 954E»0I 

. 954E + 0I 

:io. 

. 960E«01 

958E*0I 

.956E+0I 

.955E*0t 

. 954E + 01 

. 954E*0I 

.954E+01 

:20. 

.960E*01 

9ESE+01 

.956E+0I 

.955E'*01 

.9E4E+01 

•954E+0I 

,954E^0f 

(30. 

.960E*0t 

9S8E+0I 

. 9S6E4'0I 

.955E-»0I 

.954E»0I 

. 954E+0I 

. 954E + 0I 

;40. 

.960E«01 

958E'*0) 

.956E+0I 

.955E^01 

.954E+0I 

.954E+0I 

.9S4E*0t 

(SO. 

.960E-»01 

958E+0I 

.956E+0I 

.955E+0I 

.954E'»0I 

.954E+0I 

.9E4E»0! 

• 60 . 

.960E«OI 

958E*^0I 

957E*0I 

.956E*0I 

.95SE^01 

.9S4E*^0I 

.954E+0I 

:7o. 

.960E«0I 

958E'»0I 

.957E+0I 

.956E*01 

.955E^0I 

.955E'»0I 

.955E+0I 

:80. 

.960E*0I 

958E+01 

.957E+0I 

.957E*0I 

.956E^0I 

.956E>0I 

. 956E+0I 

190. 

.960E«0I 

959E+01 

.958E+01 

.957E-«-0l 

.957E*0I 

.957E*0I 

.958E+01 

*00. 

.960E+0I 

959E*0t 

.939E*01 

.958E+0I 

.959E+01 

.959E»0t 

.9S9E+0I 

:io. 

.960E+01 

959E+0I 

.959E+0I 

.960E«0I 

.960E+01 

96IE«0I 

.96IE+0I 

:20. 

.96 0E«-0I 

9dOE*OI 

.960E«0I 

.96IE+01 

.SSIE^OI 

.962E«0I 

.963E«0t 

*30. 

.960E+01 

960E^0I 

.96tE40t 

.962E+0I 

.963E«0I 

.964E«0I 

.965E+0I 

*40. 

.960E■^0t 

96IE^0I 

.962E'«’0t 

.963E«0t 

.964E'»0t 

.966E4.01 

.967E+0I 

iSO. 

.960E«0t 

96tE-»OI 

.962E4^0I 

.964E«0t 

.965E'»0t 

.967E*0I 

.960E«OI 

J60 . 

.960E'»0I 

96IE'»0I 

.963E«0I 

.965E«01 

.966E«0I 

.968E'»0I 

.969E«0I 
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■R • 
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DAY ■ 20 

MONTH 

- 6 HOUR > 12 niH > 0 



'NJD 

- 2440029. FI 

0 • too. 00 FI 09 

> 100.00 

GI - 0. 

00 


4LTIT0DE ■ 

195.0 











< -SOUTH) 

LATITUDES 

(♦NORTH) 



.CN. 


-20. 

-10. 

0. 

to. 

20. 

30. 

40. 

-WEST) 








♦EAST) 








to. 


.S7IE^01 

S72E^01 

.973E401 

.974E»01 

.974E^01 

.974E*0I 

.9746*01 

20. 


.S72E^01 

973E«0t 

.974E^0I 

.974E^0I 

.974E+01 

.974E*0I 

.9746*01 

30. 


.S72E*0I 

973E^01 

.974E^0t 

. 974E^0I 

.979E^0I 

.975E*0I 

.974£*0I 

40. 


.S72E*0I 

973E>01 

.974E*0I 

.974E*0I 

.979E^0I 

.974E*0I 

,9746*01 

90. 


.S71E+01 

973E*0I 

.973E*0I 

.974E^0l 

.974E^0I 

.974E*0I 

.9746*01 

60. 


.S71E+0I 

972E*0I 

.973E+0I 

.973E^01 

.973E^0I 

.973E*0I 

.9736*01 

70. 


.970E+01 

571E+01 

.971E*01 

.972E+01 

.972E^0I 

.972E*0I 

,9726*01 

90. 


.SSSE^OI 

S69E«0I 

.970Et0l 

.97IE«0I 

.97IE^0I 

97IE*0I 

,97IE*0I 

90. 


.967E*0I 

969E^0I 

.96SE*0I 

.969E^0I 

. 970E^0I 

.970E*C1 

.9706*01 

■ 00. 


.S66EiOt 

966E^0I 

.967E+0I 

.963E+0I 

.968E^0I 

.969E*0I 

.9696*01 

•10. 


.S64E«0I 

965E^0I 

.969E*0) 

. 966E*0I 

.S67E^0I 

. 967E*0I 

. 9666*01 

20. 


,S62E*0I 

963E+01 

.964E+0I 

.964E*0I 

.965E^0t 

.969E*0I 

.9666*01 

30. 


.'r6IE*01 

96IE^0I 

.962E^0I 

.962EtOI 

.963E<0t 

. 964E*0I 

,9666*01 

•40. 


.sesE^ot 

9G9E«0I 

.960E<0I 

.96IE«0I 

.962E^0I 

.962E*0I 

,9646*01 

90. 


.99OE+0I 

95eE*01 

,939E*0I 

.969E+0I 

.•960E + 0I 

.9616*01 

,9626*01 

•so. 


.956E40I 

957E+01 

.957E+0I 

.95BE+0I 

.959E^0I 

.9606*01 

.9616*01 

70. 


.S95E+01 

956E+01 

.996E»0I 

.997E+0I 

.S58E+01 

.999E*01 

.9616*01 

SO. 


.9S4E^0I 

955E+0I 

.955E+0I 

.956E*0I 

. 957E^0I 

.958E*0I 

.9606*01 

SO. 


.S54E^0t 

954E401 

.955EtOI 

.955E+0I 

.956E^0I 

.9586*01 

.9596*01 

;oo. 


.S54E»01 

95':S*0I 

.954E*0I 

.955E+01 

.956E*0I 

,9586*01 

,9596*01 

;t 0. 


.S54EtOI 

95<IC^0I 

.954E+0I 

. 95SE+0I 

.956E^01 

. 957E+0I 

. 9596*01 

;20. 


.953E+0) 

954E+01 

.954E+0I 

.955E40I 

.956E^0I 

.957E*0l 

.9596*01 

<30. 


.953E+0I 

954E401 

.964E*01 

.955E«0I 

.S66E^0I 

.S57E*0I 

.9596*01 

140. 


.954E*0t 

994E+0I 

.954E+0I 

.955E+0I 

.996E^01 

.957E+0I 

,9596*01 

:90. 


.S54E40I 

954E+0I 

.954E+0I 

.959E+0t 

.996E+01 

.9596*01 

.9596*01 

<60. 


.S54E*01 

969E+0I 

.S99E*01 

.9S6E«0I 

.9576*01 

.S90E*0I 

.9606*01 

i70. 


.955E+0I 

956E^0I 

.956E«0I 

.957E'^0I 

.998E*0t 

.959E*0I 

,96IE*0I 

<30. 


.957E*0I 

957E^01 

.957E+01 

.958E+01 

.959E+0I 

.960E*0I 

.9626*01 

ISO. 


.SSOE^OI 

S5SE^0I 

.SSSE+OI 

.960E«0I 

.96IE^0I 

.962E*0I 

,963E*0I 

•00. 


.960E401 

SSIE^OI 

.96IE«0t 

.962E^0I 

.9636*01 

.9636*01 

.964E*0I 

*10. 


.S62E40I 

9e3E+0l 

.963E40I 

.964E401 

.965E+0I 

.965E+0I 

,966E*0I 

:20. 


. S64E^0I 

969E^0I 

.966E^0I 

. 966E^0I 

. 967E*0I 

.S67E*01 

.9686*01 

;30. 


.SfSE^OI 

967E^01 

.963E*0I 

.960E+OI 

.969E*0I 

.9696*01 

.9696*01 

*40. 


.S68E^01 

969E+01 

.969E+0I 

.970E+0I 

.970E*0t 

.9716*01 

.9716*01 

790. 


,S6SE«01 

970E«01 

.S71E'^01 

.972E+0I 

.9726*01 

,9726*01 

.9726*01 

?60. 


.97IE40I 

972E40I 

.S72E+01 

.973E40I 

.973E*0t 

.9736*01 

.9736*01 


J 

D 
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!T 


V» r 1960 

DAY - 

20 HO))TH 

- 6 HOUR - )2 1 

niN ■ 0 

MNJb ■ 244002*. 

6)0 4 )00, 

00 MO* 
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Cl - 0 
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< -SOUTH) 

CAT1TUD6S 

< *MORTH> 

CON. 

SO. 

60. 

70. 

00. 

90. 

<-«E8T> 






< ♦EAST) 






10. 

.S>73E40» 

.972640) 

.97)6*01 

.9706*0) 

.9696*0) 

20. 

.S74E*01 

.973640) 

.9726*0) 

.9706*0) 

.9696*0) 

30. 

.S74E»0I 

.973640) 

.9726*0) 

.9706*0) 

. 9696*0) 

40. 

.974E»0> 

.973640) 

.9726*0) 

.970640) 

.9696*0) 

so. 

.473E*0» 

.972640) 

.97)6*01 

.9706*01 

.9b9E*0) 

SO. 

.973E40I 

.972640) 

.9716*0) 

.9706*0) 

.9696*0) 

70. 

.S72E*0t 

.97)6401 

.97)6*0) 

.9706*0) 

.9696*0) 

00. 

.9216401 

.97)640) 

,9706*0) 

.9706*0) 

.9696*0) 

00. 

.970E40t 

.9706401 

.9706*0) 

.9696*0) 

.9696*0) 

1 00. 

.969E40I 

.969640) 

.9696*0) 

.9696*0) 

,9696*0) 

MO. 

. 9606401 

.960640) 

.9606*0) 

,9696*0) 

. 9696*0) 

120. 

.9S7E40I 

,967640) 

,9606*0) 

.9686*0) 

.9696*0) 

130. 

.96SE401 

.966640) 

.9676*0) 

.9686*01 

.9696*0) 

140. 

.9S5E40I 

.966640) 

.9676*0) 

.9686*0) 

.9696*0) 

ISO. 

.964E40I 

.965640) 

.9666*0) 

.9686*0) 

.9696*0) 

<60. 

.963E40I 

.9646401 

.9666*0) 

.3676*0) 

.9696*0) 

170. 

.9626401 

.964640) 

.9666*0) 

.9676*01 

.9696*0) 

100. 

.962640) 

.963640) 

.9656*0) 

.9676*0) 

.9696*0) 

140. 

.4616401 

.963640) 

.9656*01 

.9676*0) 

.9696*0) 

200. 

.9616401 

.963640) 

.9656*0) 

.9676*0) 

,9696*0) 

210. 

.961640) 

.963640) 

.9656*0) 

.9676*0) 

.9696*0) 

220. 

.96)640) 

,963640) 

.9656*01 

.9676*0) 

.9696*0) 

iSO, 

. 961640) 

.963640) 

,9656*0) 

,9676*01 

.9696*01 

240. 

.961640) 

,9636*0) 

.9656*01 

,9676*0) 

.9696*0) 

250. 

,961640) 

.9636*01 

,9656*0) 

.9676*0) 

,9696*01 

260. 

,962640) 

.9636*0) 

.9656*0) 

.9676*0) 

.9696*0) 

270. • 

.962640) 

.9646*0) 

.9666*0) 

.9676*0) 

.9696*0) 

230. 

.963640) 

.9646*01 

.9666*0) 

.9676*0) 

.9696*0) 

290. 

.964640) 

.9656*0) 

.9666*0) 

.9686*0) 

.9696*0) 

300. 

.96SE40) 

.9666*0) 

.9676*0) 

.9686*0) 

.9696*0) 

310. 

,967640) 

,967640) 

.9686*0) 

.9686*0) 

.9696*0) 

320. 

,960640) 

.9606*0) 

,9696*0) 

.9696*0) 

.9696*0) 

330. 

.969640) 

.9696*0) 

.9696*0) 

.9696*01 

,9696*01 

340. 

.97)640) 

.9706*0) 

.9706*01 

.9696*0) 

.9696*0) 

3S0. 

.972640) 

.9716*0) 

.97)6*0) 

.9706*0) 

.9696*0) 

360. 

.973640) 

.9726*0) 

.97)6*0) 

.9706*0) 

.9696*0) 
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LON. 

-00. 

-00. 

-70. 

-60. 

-90. 

-40. 

-30. 

<-ME8T) 








(♦EAST) 








to. 

.997E*0I 

.dS9E«0l 

.86tE«OI 

.964E«01 

.066E^0t 

.868E^0I 

.870E^01 

20. 

.097E*OI 

.e&9E*0l 

.862E*0I 

.86«E*0I 

.e«6E^0l 

.068E4OI 

.870E40I 

30. 

.S57E»0t 

.069E*OI 

.862E*0I 

.864E*0I 

.eoeE^oi 

.8e9E*OI 

.870E^0I 

40. 

.857E*0I 

.859E+01 

,e<.2E + 0l 

.664E*0t 

. 8i:6EtOI 

.eeoE^oi 

.870E^OI 

90. 

.897E«0t 

,899E*0I 

.eotE^oi 

.064E«OI 

.e66£^0l 

.860E^OI 

.870E^0I 

«0. 

.857E»0t 

.899E«0I 

.OilE^Ot 

.863E«0I 

,865E^0t 

■867E^0I 

.869E^0I 

?0. 

.eS7E«01 

.e59E+0l 

.860E«01 

.862f>OI 

.ee4E40t 

.e68£«0l 

.868E^0I 

00. 

.697Et0l 

.89eE*OI 

.86 0E*^0I 

.06IE«0I 

.663E^0I 

.069P4OI 

.066E^OI 

00. 

.O97E«0t 

.858E+0I 

.839E^0I 

.860E«Ot 

,862E^0I 

.863E^0I 

.865E*0I 

too. 

.657E*0t 

.85eE«0t 

,e38E^01 

.859E*01 

.860E+OI 

.862E40I 

.863E+0I 

t to. 

.es,'E*OI 

.OS7E*OI 

.esoE-^oi 

.898E*0I 

.SJ9E*0I 

.06 OE^OI 

.86IE^0I 

120. 

,b97E*0l 

.857E>0I 

.e57E*0l 

.857E*0l 

.eooE^ot 

.858E^0I 

.eS9E^0t 

•30. 

.eS'E^Ot 

.856E+01 

.estEtoi 

.856E*01 

.896Et01 

.657E^0t 

.897EtOI 

'40. 

.397E*0I 

.OS6E*OI 

.859E*0I 

,8S3E«0I 

.eosE^oi 

.855E*0l 

.096E^OI 

190. 

.097E*OI 

.eS6E«OI 

.89SE«0I 

.894Ef 01 

.e94EtOI 

.eS4E^OI 

. 854E^0I 

;«o. 

.e97E+01 

.855E^01 

.854E+0I 

.essc^ot 

.853E^0I 

.OS3E>OI 

.8S3E*0I 

170. 

.eO7E»0l 

.855E»01 

.eS4E*0l 

.893E*0I 

.852E^0I 

.892E^0I 

.892E^01 

'00. 

.657E*0I 

.ODSE^OI 

.ogaE^oi 

.O92E*0l 

.09IEtOI 

.89tE^0l 

.85IE«0I 

190. 

.e97E*01 

.e55E*0l 

.P53E^0I 

.892E*0I 

.05IE»OI 

.eODE^OI 

.890E^0t 

200. 

.097E«OI 

.055E+OI 

.8T.3E + 0I 

.692E«0I 

. 05IE>OI 

.u30E*0! 

,05OE*OI 

210. 

.897E«0f 

.09SE«^OI 

.essE^oi 

.852E+0I 

.e5IE«0l 

.©■SOE + Ot 

.eSOE+01 

220. 

,897E+0I 

.855E+01 

.853E>01 

.892E»0I 

.esiE^ot 

.eO'lE^OI 

.esf'E^ot 

230. 

.807E+OI 

.855E+0I 

.essE't^ot 

.892E«0I 

.OSIE^OI 

.05OE^Ot 

.OgnE^OI 

240. 

.097E«Ot 

.855E+01 

.853E«0I 

.e92E«OI 

.esiE*ot 

.890E>0t 

.ODOEtOt 

290. 

.e97E«OI 

.e5SE+0l 

.853E'»0I 

.852E^01 

.89IE«0t 

.890E^0I 

.09OE«OI 

260. 

.egTE^oi 

.8U5E*0I 

.853E+0I 

.892E«0t 

.09IE»Ot 

.89tE*OI 

.89IE«0I 

270. 

.097P+01 
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.S64E^0I 

.SSSE^OI 

.SSSE^Ot 

,SS7E^0I 

.SSSE^OI 

.670E^0I 

310. 

.SSSE^Ot 

.6<<7E*0I 

.SSOE^Ot 

.SS9E40I 

.sroE^oi 

.67IE^0I 

.672E^0t 

?20. 

.669E^0t 

.67IE^0I 

.S72E^0I 

.673E+0I 

.S74E^0t 

.674E^0I 

.S75E^0I 

330. 

.672£^01 

.674E^0I 

.675E+0I 

.S76E^0I 

.677E^0I 

.6??E*0f 

.678E^0I 

340. 

.675E^01 

.677E+01 

.678E+0I 

.679E^0t 

.seoE^oi 

.S80E40I 

.SSOE^OI 

350. 

.67ee^0t 

.679E+01 

.seiE^oi 

.S82E«0I 

.seoE^ot 

,682E>0I 

.seoE^ot 

360. 

.seoE^oi 

.seiE^oi 

.sesE^oi 

.684E«01 

.S84E^0I 

.S84E^0I 

.684E^0I 




■t,. — >-»•••—■- 






<A> 


PACE 3 




fR - 1968 

DAY - : 

20 HOHTH 

- 6 HOUR - 12 

niH - 0 

^tlJO - 2440026. 

F10 - 100.00 Floe 

- 100.00 

Cl - 0 

.LTITUDE 

- 135.0 








< -SOUTH) 

LATITUDE? 

^ ♦NORTH) 

-ON. 

90. 

60. 

70. 

00. 

90. 

-IJESD 






' T> 






10. 

.o34E^01 

.633E+01 

.681E«01 

.679E^01 

.677E^01 

20. 

639E*01 

.683E'»0I 

.662E'*01 

.679E*01 

.677E*0( 

30. 

.635E*0I 

.684E*0I 

.682E«0I 

.679E*01 

.677E*0I 

40. 

.639E*01 

.683£«01 

.682E^01 

.679E+01 

.677E^0I 

90. 

.634E40I 

.633E«01 

.661E*01 

.679E+01 

.677E^01 

60. 

.633E*0I 

.682E«0I 

.68IE«0t 

.679E»01 

.677E+0I 

70. 

.682E+01 

.661E40I 

.680E«01 

.679E401 

.677E+0I 

60. 

.66IE+0I 

.eeOE'^OI 

.679E*01 

.678E+01 

.677E^0I 

90. 

.679E»0I 

.679E+0I 

.678E*0I 

.678E'»01 

.677E+01 

' 00. 

.677E*0I 

.677E*01 

.677E+0I 

.677E*0I 

.677E^0I 

’ 10. 

.676E»01 

.676E*0I 

.676E+01 

.677E'»01 

.677E*0l 

■20. 

.674E*01 

.675E+0I 

.675E+01 

.676E»0I 

,677E*01 

30. 

.672E+01 

.673E+01 

.675E+01 

.676E401 

.677E^0I 

;40. 

.670E«0t 

.672E«0f 

.674E+0I 

.675E*01 

.6.’7E^0I 

'50. 

.669E«0I 

.671E*01 

.673E+0I 

.675E+01 

.677E+01 

•60. 

.667E-f0l 

.670E«01 

.672E+0I 

.675E+01 

.677E+01 

•70. 

.666E«01 

.669E-»0I 

.672E+0I 

.674E+01 

.677E^01 

30. 

.669E'»0I 

.668E'»01 

.671E401 

.674E«01 

.677E+0I 

90. 

.665E‘»01 

.668E«01 

.67IE+01 

.674E+01 

.677E+01 

:oo. 

.665E«0I 

.668E'^01 

.67IE+01 

.674E+01 

.677E^0I 

^10. 

.664E+01 

.668E^0t 

.67tE^01 

.674E401 

.677E*0I 

::20. 

.664E*^01 

.668E«^01 

.671E*01 

.674E+01 

.677E+01 

^30. 

.664E+0I 

.668E+01 

.671E»01 

.674E*01 

.677E+0I 

240. 

.664E*0I 

.668E«01 

.67IE^01 

.674E^0t 

.677E+0I 

:so. 

.665E^0I 

.668E-»01 

.671E+01 

.674E401 

.677E+01 

;60. 

.669E*01 

.668E«01 

.671E*01 

.674E+01 

.677E+01 

;?o. 

.666E«01 

.669E*01 

.672E'^0I 

.674E*0I 

.677E^0I 

280. 

.668E^01 

.670E401 

.672E^01 

.675E+01 

.677E+01 

290. 

.669E«01 

.671E'»0t 

.673E<’0I 

.675E*0I 

.677E*0I 

300. 

.67IE+0I 

.673E+01 

.674E+0I 

.676E+01 

.677E+01 

*to. 

.673E'»0I 

.674E4-01 

.675E40I 

.676E401 

.677E+0I 

720. 

.676E+01 

.676E«01 

.677E>0I 

.677Et01 

.677E+0I 

730. 

.678E+01 

.678E'«^01 

.678E-fOI 

.677E+01 

.677E+01 

740. 

.660E^01 

.679E+01 

.679E^01 

.678E«01 

.677E+01 

750. 

.682E'»01 

.661E'»01 

.680E«'01 

.678E'»01 

.677E+0I 

360. 

.683E4^01 

.682E«01 

.68fE40t 

.679E+01 

.677E+01 




1 



4 - I960 &AV - 20 MONTH - « HOUR - 12 MIN - 0 

•1JD ■ 2440028. no - 100.00 FtOB - 1 00.00 GI - 0.00 

>.TITUDE - 185.0 


< -SOUTH) LATITUDES («HORTH> 


.ON. 

• -UE6T> 
. »EAST> 

-80. 

-80. 

-70. 

-60. 

-50. 

-40. 

-30. 

10. 

.712E+01 

.712E401 

.712E+01 

.712E401 

.71 1E»01 

.71 1E»01 

.71 1E+01 

20. 

.712E'»01 

.712E*01 

■7I2E«0I 

.712E'»0I 

. 71 lE^OI 

.7I1E*01 

.71 IE401 

30. 

.712E»0I 

.7I2E'»0I 

. 712E*0I 

.7I2E«0I 

.71 1E»0t 

.71 IE*OI 

.71 lE'^OI 

40. 

.712E401 

.712E401 

.7I2E+01 

.712E401 

.71 1E401 

.71 1E401 

.71 1E+01 

50. 

. 7I2E40I 

.7I2E+01 

.712E'»01 

.7I2E«0I 

. 71 IE*OI 

.71 lEtOI 

.71 1E*01 

£0. 

.7I2E+01 

.712E401 

.712E*01 

.7l2E«'0t 

.71 IE*01 

.71 1E«01 

.71 1E'»0t 

70. 

.712E+01 

.712E'401 

.712E«01 

.712E«01 

.7I2E«01 

.71 1E*01 

.71 1E*01 

30. 

. 7t2E«0l 

.7I2E'»01 

.7I2E«01 

.PISE^OI 

. 7t2E*0l 

.71 IE*01 

.71 1E*01 

30. 

.712'i*01 

.7I2E«01 

.7I2E+01 

.712E«0I 

.7I2E'»01 

,712E«’0I 

.71 1E+0I 

00. 

.7t2E-*01 

.7I2E+01 

.712E+01 

.7I2E401 

. 712E40I 

7I2E+01 

.712E+01 

• 0. 

.712E+01 

.7I2E+0I 

.7I2E»0I 

.7I2E-»0I 

.7l2E'»0t 

.7I2E'»0I 

. 712E'*01 

•20. 

. 7I2E+0I 

.7I2E'»0I 

. 7I2E'^01 

. 712E^0I 

, 7I2E*01 

.712E'»0I 

. 712E-»01 

30. 

.712E+01 

.712E+01 

.712E*01 

.7I2E+01 

.712E+01 

,712E»01 

.712E»01 

•40. 

. 712E*01 

.712E*0I 

. 712E*01 

.7l2E*0t 

. 7I2E-»0I 

.7l2E'rOI 


SO. 

.7I2£«01 

.712E^01 

.7I2E■^01 

.712E'»0I 

.7I2E«^01 

.7I2E^0I 

.7I2E+01 

60. 

,712E'401 

,712E»01 

.712E*01 

.712E+01 

,712E«01 

.7I2E401 

.7)2E40t 

• 70. 

. •»12E'»01 

.712E+01 

. 7I2E+0I 

.712E«0I 

. 7I2E-»0I 

. 712E+0I 

. 7I2E>01 

•%o. 

.7I2E‘»0I 

.7I2E401 

.712E'»0I 

.712E40I 

.7I2E+01 

.712E-401 

.712E+01 

>0. 

. 712E+01 

.7I2E401 

.712E+01 

.712E401 

.7I2E+01 

.712E'»01 

.712E+01 

.00. 

■7I2E+01 

, 712E+01 

.7I2E'»01 

.712E*01 

.7I2E'»0I 

.7t2E'»0l 

.712E'»01 

:i 0. 

. 7I2E-»01 

.712E-»01 

.712E+0I 

.7I2E4’0I 

. 7t2E«^0l 

.7I2E+0I 

.712E'»01 

120. 

.712E+01 

.712E+01 

.712E«01 

.7I2E401 

.7I2E+01 

.712E+01 

.712E+01 

:30. 

. 7I2E'»01 

.712E'^01 

,7I2E'»0I 

.712E'»0I 

. 7I2E+0I 

.7l2E«^0t 

.712E*01 

;4o. 

. 712E'*01 

. 7I2E401 

.7I2E«0I 

. 7I2E40I 

. 7I2E-»0I 

.7I2E+0I 

.712E401 

ISO. 

.7I2E401 

.712E401 

.712E401 

.7I2E40I 

.ri2E+0l 

.7I2E+0I 

.712E40I 

160. 

. 712E4'01 

.7I2E4-01 

.7I2E+01 

.7I2E-»0I 

.7I2E«’0I 

.7I2E'«-0I 

.712E401 

170. 

.712E+01 

.712E^01 

.7I2E40I 

,7i2S*0i 

.7I2E401 

.7I2E-^01 

.712E40I 

ISO. 

. 7t2E*0t 

.712E+01 

.7I2E40I 

.7I2E401 

.7I2E+01 

.7I2E4-0I 

.7I2E+0I 

ISO. 

.7I2E»01 

.712E*01 

.712E«01 

.7I2E'»01 

.7t2Ei'0l 

.?12EtOI 

.712E+01 

:oo. 

.712E+0I 

.712E+01 

.712E401 

.712E40I 

.7I2E+01 

.712E4-01 

.712E+01 

no. 

.712E+01 

.712E401 

.712E+01 

.712E+01 

.712E401 

.712E+01 

. 712E+01 

T20. 

.712E+01 

.7I2E4.01 

.712E+01 

.712E401 

. 7l2E«'0t 

.7I2E-40I 

.712E^01 

730. 

. 712E«0t 

.712E401 

. 7I2E401 

.712E+01 

. 7I2E401 

.7I2E40I 

.712E+01 

740. 

.712E+0I 

.7I2E+01 

.712E40I 

.712E40I 

.712E+01 

.712E40I 

.71 1E+01 

■SO. 

.712E'»0t 

.7I2E«01 

.712E«01 

.7I2E'»01 

.7I2E4-01 

.71 lE^OI 

.71 1E«0I 

760. 

.712E'»01 

.7I2E401 

,712E'»0I 

.7I2E401 

.71 1E4-01 

.71 IE401 

.71 1E«^01 



i» - I960 DAY - 20 MONTH - 0 HOUR - t2 MIH > 0 

>MJD - 2440028. MO > 100.00 FlOB - tOO.OO Cl - 0.00 

4CT1TUDE - I8S.0 



<-60UTH) 

LAT1TU(>E& 

< ♦MOUTH) 



10. 

0. 

10. 

20. 

30. 

40. 


lOH. 

> -WEST) 
< ♦C«6T) 

to. 

20 . 

30. 

40. 

50. 

60. 

? 0 . 

80. 

90. 

• 00 . 

1 to. 

20 . 

•30. 

■40. 

•50. 

60. 

: 70. 
idO. 

'90. 

2 00. 

2t0. 

220 . 

230. 

240. 

250. 

260. 

270. 

280. 

290. 

300. 

310. 

320. 

330. 

340. 

390. 

360, 


- 20 . 


7ttE*01 
.7t IE*0t 
. 7ME*01 
. 71 IE*01 
. 71 lE+OI 
.7I1E+0I 
. 71 IE401 
.71 IE»OI 
. 71 1E+0I 
.7I2E+0I 
. 712E+0I 
. 7I2E+0I 
. 7I2E+01 
. 7I2E*01 
.712E40I 
. 7I2E-^C' 
. 712E+01 
. 712E«0t 
. 712r>OI 
. 712E+0I 
7I.'.E*01 
.712E+0I 
.?l2E'fOt 
. 712E+0I 
.712E+0t 
. 712E40I 
.7I2E40I 
.712E401 
.712EfOI 
.712E401 
.712E+0t 
. 7I2E+01 
.71 1E+0I 
.71 1E■^01 
.71 IE-»01 
.71 1E401 


.7ME40t 
.71 lE^Ol 
.71 1E+01 
.71 lE+OI 
.71 lE^OI 
.71 1E*01 
.71 1E401 
.71 1E'»01 
.7HE»01 
.7ltE+0t 
. 712E+01 
.712E'»01 
.712E^01 
.712E*0t 
.712E^01 
.712E401 
.712E«01 
.712E+01 
.712E+0I 
. 712E'^0I 
.712E->01 
.712E401 
.712E+01 
.712E401 
.712E*01 
. 712E't01 
.712E401 
.712E+01 
.7I2E401 
.712E+01 
.712E+01 
. 7I2E+01 
.71 1E401 
.711E401 
.71 1E*01 
.711E-f01 


.711E401 
.71 ie«oi 
.71 1E*01 
.71 1E401 
.71 1E«01 
.71 lE^Ol 
.71 1C401 
.71 1E«^01 
.71 lEtOl 
.71 lE+01 
.712E+01 
.712E+01 
.712E»01 
.712E«01 
.712E-»01 
.712E401 
.713E*01 
.712E«0I 
. 712E+01 
.712E40I 
.712E401 
.712E+01 
.712E»01 
.712E+01 
.712E401 
.712E+01 
.712E+01 
.712E401 
.712E'»01 
.712E«'01 
.712E+01 
.712E+01 
.71 1E«01 
.71 1E401 
.71 lEi-Ol 
.71 1E*01 


.71 1E401 
.71 lE^Ot 
. 71 1E*01 
.71 1E401 
.71 1E*01 
.71 lE^Ol 
.71 1E401 
.71 1E«01 
.71 lE^OI 
.71 1E+01 
.71 1E*01 
. 712E*01 
. 7 1 2£-» a 1 
.712E+01 
.712E401 
.712E401 
.712E*01 
.712E-»01 
.712E401 
. 712E4^0t 
.712E+01 
.712E«01 
.712E+01 
.712E401 
.712E401 
.712E+01 
.712E401 
.712E401 
. 712E4’01 
.712E+01 
.712E«01 
.71 lE+OI 
.71 IE401 
.71 1E*01 
.71 lE«Ot 
.71 1E401 


.71 1E*01 
.71 lE*Ot 
.71 1E*01 
.71 lE^OI 
.71 tE«Ot 
.71 1E*01 
.71 lE+OI 
.71 1E*01 
.71 1E401 
.71 1E»01 
.71 lE+01 
. 712E+01 
.712E+01 
. 712E*01 
.712E«’01 
.712E*01 
. 712E«01 
.712E>01 
. 712E+01 
. 7t2E+0t 
.712E401 
.712E+01 
. 712E+0t 
.712E401 
.712E+01 
.712E401 
. 712E»01 
.712E+01 
. 712E+01 
.712E+01 
.712E401 
.71 IE'^01 
.71 1E401 
.71 1E401 
.71 1E'»01 
.71 lE^Ol 


.71 1E401 
.71 1E*01 
.71 1E*01 
.71 1E*01 
.71 1E40I 
.71 lE^OI 
.71 lE+01 
.71 1E+01 
.71 1E•^01 
.71 lE-^01 
.71 1E+01 
. 712E+01 
,712E'^01 
.712E»01 
.712E+01 
.712E'»01 
. 712E*0t 
. 712E40t 
. 712E»01 
.712E'»0t 
.712E*01 
. 712E401 
. 712E'»0t 
.712E■^01 
.7t2E•^01 
. 712E'»01 
.712E+01 
.712E-^01 
. 712E+01 
. 712E*01 
. 712E4^0t 
. 71 1E*01 
.71 1E+01 
.71 lE'^OI 
.71 1E'»01 
.71 lE+01 


.71 1E*01 
.71 IE'^01 
. 71 1E«01 
.711E^01 
.71 1E»01 
.71 lE^Ol 
.71 lE+Ol 
.71 1E*0I 
.71 1E401 
.71 lEtOI 
. 71 1E+01 
.71 lE+01 
.712E+01 
.7I2E»01 
.712E''’0t 
.712E*0l 
.712E*01 
.712E«01 
. 712E+01 
. 7I2E^0I 
. 712E«01 
.712E^01 
.712E+01 
.712E+01 
.712E401 
.712E401 
.712E«01 
.712E401 
.712E+01 
.712E'»01 
.71 1E+01 
.71 1E»01 
.71 lE^-Ol 
.71 lE'fOl 
.71 1E»01 
.71 lE+01 



<HE> 


PmCE 3 


3 

j 


■a - 1S66 DAY - 20 hONTH - « HOUR > 12 MIN > 0 
' 1JD - 2440028. FtO ■ tOO.OO FlOB - tOO.OO Cl - 0,00 


a 

-lTITUDE 

- 165.0 





1 ) 




< -SOUTH) 

LATITUDES 

< ♦NORTH) 

*• 

.ON. 

SO. 

60. 

70. 

80. 

90. 


-WEST) 






1 > 

♦EAST) 







to. 

.7t 1E»0t 

.71 lEtOl 

.71 1E40I 

.7tlE*01 

.71 lE*Ot 


20. 

.71 IE*OI 

.711E*0t 

. 71 lE«Ot 

.71 IE«01 

.71 1E«01 


30. 

. ?l IE«OI 

.71 1E*0I 

.71 1E*01 

.71 lE«Ot 

. 71 1E*01 

j* 

40. 

.71 lE+Ot 

.71 tE*Ot 

.71 1E401 

.71 lE+01 

. 71 1E40I 


SO. 

. 71 IE»Ot 

.71 1E»01 

.71 1E»01 

.711E*0t 

.71 1E>0I 

» - 

SO. 

. 71 IE«Ot 

.71 IE+01 

,71 1E»01 

.71 1E40I 

.71 1E401 

# ■ 

70. 

. 7t 1E*0t 

.71 1E40I 

.71 1E*0I 

.71 lE^OI 

.71 1E*01 

a ' 

90. 

,71 lE*0t 

.71 1E*01 

.71 IE«Ot 

.71 1E+01 

,71 1E*01 


90. 

. 71 lE+Ot 

.71 1E*01 

,71 1E*0I 

.71 1E*01 

.71 1E*01 


00. 

. 71 lE+OI 

.71 lE+OI 

.71 1E40I 

.71 1E»01 

. 71 IE + 01 


10. 

, 7ME*0t 

.71 1E*01 

.71 1E*01 

.71 1E+01 

. 71 1E*0I 


20. 

. 71 1E + 01 

.71 1E-»01 

.71 IE*01 

.71 1E*01 

.7! 1E*0I 

a 

30. 

, 7I2E*0I 

.71 1E»01 

.71 IE*OI 

.71 lE+Ol 

.71 1E4-0t 


40. 

. 7t2E*0t 

.712E«01 

.71 1E*01 

.71 1E»01 

.71 1E*01 


SO. 

. 7l2E + 0t 

.712E*01 

.71 1E+0I 

.71 1E«0I 

.71 1E«01 


60. 

.7l2E+0t 

.712E+01 

.71 lE^Ot 

.71 lE+OI 

.71 lE^Ot 

1 

70. 

. 7I2E+01 

,712E40t 

.712E+01 

.7I1E401 

.71 lE+01 

oi ; 

30. 

. 7I2E»01 

. 7t2E*01 

.712E401 

.71 1E*01 

,71 lE+01 


90. 

.7I2E+01 

.712E401 

.7I2E+01 

.71 1E40I 

.71 1E40I 

•f * 

:oo. 

. 712£+0t 

. 712E+01 

. 712E+01 

.71 1E+01 

.71 1E+01 

J 

10. 

. 7l2E+0t 

. 712E+01 

. 712E+01 

.711E*01 

.71 IE401 

^ - 

.20. 

. 7I2E+01 

.712E+01 

.7I2E401 

.71 lE+OI 

.71 1E+01 


E30. 

. 7I2E + 0I 

.712E40I 

. 712E40I 

.71 1E+01 

71 1E+01 


.40. 

.7l2E*0t 

.712E+01 

.712E4'0I 

.71 IE«Ot 

.71 1E401 

W ■ 

4 

iSO. 

. 7I2E+0I 

.7I2E+0I 

.712E401 

.71 IE*01 

.71 1E40I 


.60. 

. 7l2E*0t 

.712E401 

.712E401 

71 1E«0I 

.71 1E*01 

a 

.70. 

, 7I2E+05 

.7l2E«0t 

.712E*01 

.71 IE401 

.71 lEtOI 

:9o. 

. ?12E*0t 

.7l2E*0t 

,71 lE+OI 

.7HE + 01 

.71 1E40I 

• e- ' 

!90. 

. 7I2E+0I 

.712E401 

,71 1E40I 

.71 IE40I 

.71 IE401 

1 

90. 

. 712E*0t 

.71 1E401 

,71 1E401 

.71 lE^Ot 

.71 1E*01 

i 

to. 

.7t lE+OI 

.71 lE^Ol 

,71 1E40I 

.7I1E401 

.71 1E+01 

« » , 

20. 

.71 IE*Ot 

.71 lE^Ol 

.71 1E+01 

.711E40I 

.71 1E*01 


30. 

.71 tE*Ot 

.71 1E+01 

.71 1E4’0I 

.711E401 

.71 IE+01 

1" 

40. 

.71 tE*Ot 

.71tE40t 

.71 lE^Ot 

.71 IE401 

.71 1E401 

1 ^ 

SO. 

.71 1E*ni 

.71 1E40I 

.71 lE^Ol 

.71 1E4-01 

.71 1E«01 

1 .. 

’60. 

.71 lE'fOt 

.71 IE4.01 

.71 1E4'0t 

.71 IE40I 

.71 IE*OI 



HE ON HC'U UT 


PACE 


yp - *966 DAY ■ 20 MONTH - 0 HOUR ■ 12 MIN ■ 

yMJD ■ 2440020, F)0 ■ 1 00,00 F I OB - 100,00 Cl - 

mLTITUDE - 105,0 


0,00 


- 00 , 


-80, 


<-SOUTH> LATITUDES («NOATH> 
-70, -00, -50. 


-40. 


-30. 


ION. 

-WE6T) 
t ♦EAST) 

to. 

20 . 

30. 

40. 

50. 

60. 

70. 

80. 

90. 

• 00 . 

' to. 

20 . 

30. 

’ 40 . 

<50. 

<60. 

! 70. 

<80. 

•90. 

:oo. 

< 10 . 

;?o. 

230. 

240. 

250. 

260. 

270, 

280. 

290. 

300. 

710. 

320. 

330. 

*40. 

350. 

360. 


.2I6E»02 
,2I6E*02 
. 2I6E»02 
. 2 t 6 Ey 02 
,2t6E«02 
.2I6C«02 
.2t6E«02 
. 2I6E«02 
,2t6E«02 
.2I6E»02 
,2I6E*02 
,2t6E*02 
,2l6Et02 
,2I6E*02 
,216E*02 
.2I6E«02 
,2I6E*02 
.2I6E4'02 
.216E*02 
.2t6E*02 
. 2 I 6 E <^02 
.2I6E+02 
.2I6E«02 
,2I6E»02 
,2t6E^02 
. aiOE^OR 
. 2 l 6 Ey 02 
.2t6E*02 
.216Ei’02 
.2t6E»02 
.216E«02 
.2I6E*02 
,2t6E«^02 
, 2 l 6 E - y 02 
.2I6E^02 
.2t6E«^02 


.217C*02 
.2I7E*02 
, 21 7E+02 
.2I7E*02 
.2I7E»02 
.2I7E*02 
.217E+02 
. 21 7E*02 
.2l?E<-02 
, 216 Ey 02 
.2t6E«^02 
.21 6E*02 
.216E+02 
.2I6E'»02 
,2I6E*02 
.2I6E+02 
.2t6E«02 
, 2 l 5 E ‘ yrt 2 
.2I5E+02 
.215E-»02 
.2I5E'»02 
.2I5E+02 
.2I5E+02 
. 2 I 5 E 4^02 
.2I5E+02 
.2I5E+02 
.216E+02 
.216E«02 
,216£'»02 
.216E«02 
, 2 t 6 E 402 
. Z 16 E * 9 Z 
,216E«02 
. 2 l 7 Ey 02 
,2t7E*02 
.217E4,02 


218E«02 

. 2 ieE <^02 

.2I6E*02 

,2ieE*Ci2 

.2I8E»02 

.210E*O2 

.2I7E*02 

,2I7E»02 

.217E»P2 

,2I7E*02 

.2I6E*02 

.2I6E*C<2 

.216E+02 

,2I6E«^02 

,2I5E»02 

.215E+02 

.215E+02 

.2I5E'»02 

,2I5E»02 

.2I5E«02 

.2I5E«02 

.215E+02 

.2I5E+02 

.2ISE«02 

.215E+02 

.2156^02 

.2I5E'»02 

.2t5E'»02 

.215E»02 

.216E«02 

.2t6E^02 

,2I6E'»02 

.2I7E+02 

.217E+02 

.2I7E'»02 

,2t8E«02 


.2t9E*02 

,2I9E*02 

.2I9E*02 

.219E+02 

,2t9E«02 

. 2 I 8 E 4'02 

.218E»02 

.2I6E*02 

.2I7E+02 

,2I7E^02 

.2I7E»02 

,2I6E*02 

.2I6E+02 

.2ISE'«^02 

.2I5E«02 

.2tSE«02 

.2tSE«02 

.2I4E«^02 

.2l4E-»02 

.2I4E*02 

.2I4E*02 

, 2 l 4 Ey 02 

,214E«02 

.2I4E«02 

, 214 Ey 02 

.214E«'02 

.2l5E-»02 

.215E402 

.2I5E«02 

,216E«02 

.216E+02 

.217E*02 

, 2 l 7 Ey '02 

. 2 l 8 E - y 02 

.2ieE«02 

.2ieE«02 


,220E*02 

.220E+02 

.220E'»02 

.220E«02 

.220E*02 

,219E*02 

,2I9E«02 

. il $£*02 

,2ieE«02 

.2I7E+02 

,2t7E*02 

.2I6E«02 

.216E*02 

,2I5E*02 

.2I5E+02 

.215E^02 

. 2 I 4 E 4'02 

.2I4E*02 

.214E*02 

.2I4E«’02 

.214E+02 

.2I4E*02 

.214E+02 

,2I4E«02 

.2l4Ey-02 

.2I4E«02 

.2I4E«02 

, 215 E ' y 02 

,2I5E«02 

,2I6E«02 

.216E+02 

, 2 i 7 E *02 

.2I8E402 

.2I8E402 

, 219 E ' y 02 

.2I9E'»02 


.220E*02 

.22IE«02 

. 22 te *02 

. 221 E *02 

. 220 Ef 02 

,220C>02 

,220E>02 

.2l9E*Ci2 

.2t9E«02 

.2t8E»02 

.2I7E+02 

.217E»02 

.2l6Et02 

.216E«'02 

,2I5E*02 

.2t5E'»02 

.2I4E*02 

.2I4E*02 

.214E+02 

.2I4E'<02 

.2I4E«02 

.2I4E*02 

.2I4E«02 

,2t4E>02 

.2t4E«02 

.2I4£*02 

.21'4E>02 

.2I5E«02 

.2ISE*02 

.'216£^02 

.217E402 

.2t7E*^02 

.2t8E'»02 

.2I9E^02 

, 2 I 9 E 4’02 

.220E>02 


,22IE«02 

.22IE*02 

.22IE*02 

.22IE«02 

,22IE*02 

.22IE«02 

.220E«02 

,220E*02 

.2t9E«02 

.2ISC*02 

.2t8E«02 

.2I7E402 

.2I6E«02 

.2I6E*02 

.2I5E«02 

,2I5E*02 

.2l4E'i’02 

.2I4E«02 

.2I4E«02 

,2t4E*02 

,2I3E«02 

.2t3E«02 

. 2 I 3 C *02 

.2I4E«02 

..'2I4E^02 

.2l4Et02 

.2I4E«02 

.2I5E«02 

.2I5E«02 

.2I6E«02 

.2I7E402 

.2I8E'»02 

.2I9E*02 

.2l9Ef02 

.220E'»02 

.22tE«02 



He AN HOL UT 


tk - 1968 DAY - 20 MONTH - t HOUR - 12 MIN • 0 

>MJD - 2440028. FtO - 100.00 F108 - 100.00 Cl - 0.00 

aUTlTUOE - 185.0 




< -SOUTH) 

LATITUDES 

< ♦NORTH) 



-20. 

-10, 

0. 

10. 

20. 

30. 

40. 


uON. 

< -WEST) 
. ♦EAST > 

10 . 

20 . 

30 . 

40. 

50. 

60. 

20 . 

00 . 

90. 

1 00 . 

' 10 . 

20 . 

•30. 

140 . 

rSt. 

•60. 

'70. 

•80. 

'90. 

;oo. 

:io. 

i20. 

230. 

240. 

250. 

260. 

270. 

280. 

290. 

:oo . 

no. 

T20. 

*30. 

no. 

750. 

760. 


.222E402 

.222E*02 

.22?E*02 

.222E402 

.222E*02 

. 22 IE «02 

.221E*02 

.220E*02 

.220E«02 

.219E+02 

, 2 \er .*02 

,SI7E*02 
,21?E*02 
.2I6E«02 
.215E«02 
.21SE402 
.214E^02 
.214E«02 
.214E+02 
,2I4E*02 
. 21 3 E ^02 
.213E402 
.2l3Ef02 
.213E^02 
.214E«02 
.214E*02 
.214E^02 
.215E+02 
.2ISE«02 
.216E+02 
.217E402 
.218E^02 
.219E-f02 
.220E402 
.221E402 
.221E'»02 


. 222 E 402 
.222E*02 
.222E*02 
,222E«02 
.222E^02 
.222E«02 
.221E402 
.22IE*02 
,220E*02 
.219Et02 
,SIB£*02 
.2ieE»02 
.217E+02 
.216E«02 
.216E+02 
.2l5Ei02 
.214E^02 
.214E+02 
,2I4E^02 
.214E»02 
.2I4E^02 
.214E+02 
.214E+02 
.214E^02 
.214E+02 
.214E*02 
.214E^02 
.215E+02 
.216E+02 
.21 7E+02 
.218E-f02 
.2I9E+02 
.219E+02 
.220E+02 
.22tE«^02 
.222E402 


.223E»02 
.223E»02 
.223E*02 
.223E402 
.223E»02 
•,222E*02 
.222E^02 
.221E«’02 
.220E*02 
.220E+02 
.219E+02 
. 2 iee >02 
.217E+02 
.216E«02 
.2'6E*02 
.21SE402 
. 2 ISE 4’02 
.214E+02 
.214E402 
,2I4E*02 
. 21 4 E ^02 
.2I4E+02 
.2I4E+02 
.214E«02 
.214E^02 
.214E+02 
.2tSE«02 
.2I5E402 
.2I6E^02 
. 21 7 E ^02 
.2I8E+02 
.219E+02 
.220E>02 
.221E402 
.221E«^02 
.222E«02 


.223E*02 
.223E*02 
.223E*02 
.Z£3C*0£ 
.223E«02 
. 222£«02 
.222E*02 
.221E«02 
.22IE«02 
.220E^02 
. 21 Se +02 
.218E«02 
.217E+02 
.217E*02 
.216E«02 
.2I5E*02 
.2I5E«02 
, 215 E^ 02 
.214E+02 
.2I4E+02 
.2I4E*02 
.2HE+02 
.2I4E+02 
.214E«02 
.214E«02 
.214E+02 
.215E*02 
.215E+02 
, 2 f 6 E* 0 S 
.2I7E+02 
.218E+02 
.2I9E*02 
.220E'»02 
.221E402 
.222E402 
. 222 E 4’02 


.223E«02 

.223E»02 

,223E^02 

.223E402 

.223E+02 

.223E-'02 

.222E«02 

.222E«02 

. 22 IE 402 

.220E^02 

.2I9E^02 

.2I9E«02 

.218E»02 

.217E«02 

.216E+02 

.I16E402 

.215E^02 

.215E402 

.215E402 

.215E+02 

.2I5E+02 

.215E+02 

.2I5E+02 

.215E»02 

.215E402 

.215E«02 

.215E«02 

.216E402 

.217E+02 

.217E+02 

.218E+02 

.219E402 

.220E402 

.221E402 

.222E«02 

.222E«02 


.223E402 

.223E«'02 

.223E+02 

.223E402 

.223E*^02 

.223E«02 

.222E«02 

.222E»02 

.221E*02 

.220E*02 

,S20E*02 

.219E+02 

.218E^02 

.217E*02 

.217E«02 

.2I6E*0;.' 

.^16E»02 

.216E«02 

.215E402 

.2I5E+02 

.2I5E+02 

.215E402 

.215E+02 

.21SE+02 

.215E+02 

.2I6E402 

.2t6E«02 

.216E402 

.2I7E*02 

.218E+02 

.219E+02 

.220E>02 

.220E»02 

.221E402 

.22ZE*02 

.222E402 


.223E«02 

.223E*02 

.223E+02 

.223E+02 

.223E»02 

.222E402 

.222Et02 

.222E«02 

.221E402 

.220E^02 

. 220 E 402 

.219E«02 

,219E>02 

.2f8E*02 

.217E+02 

.2I7E+02 

.T17E+02 

216E^02 

.2I6E+02 

216E*02 

,2I6E^02 

,216E^02 

2 I 6 E 402 

.216E+02 

.216E+02 

. 2 t 6 E *02 

.217E+02 

.217E+02 

.2t8E402 

.218E'f02 

.219E402 

.220E+02 

.221E402 

.221E+02 

.22£E*02 

.222E+02 
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HC<«N NOL UT PmCE ; 

'R • 1«<6Si CiRV • 20 HOHTM ■ 0 HOUR • «2 MIN ■ 0 

«MJD ■ 2440020. MO •• 1 00.00 F I OB > 100.00 Cl ■ 0.00 
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(-SOUTH) LATlTUt>E6 (♦NORTH) 

.ON. 90. «0. 70. eO. 90. 
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.223E^02 

.222E^02 

,222E*02 

.22IE^02 

.220E^02 

so. 

. 223E^02 

,2S2E*02 

.222E*02 

.22IE«02 

,2£0E*02 

70. 

.223£^02 

.222E^02 

,22iE*02 

.221E^02 

■22bE*02 

40. 

.223E^02 

.222E^02 

.222E+02 

.22IE^02 

.220E*02 

90. 

.223E*02 

.222C*02 

.222E^02 

.22)E^02 

,220E*02 

60. 

,222E^02 

.222E^02 

,222E*02 

.221E^02 

.220E*02 

70. 

.222E^02 

.2S2E*02 

.221E^02 

.221E^02 

,220E*02 

80. 

.221E*02 

.22IE^02 

. 22tE^02 

,22tE*02 

, 220E*02 

90. 

.221E^02 

.22tE*02 

.221E^02 

.2.iE^02 

220E*02 

• 00. 

,220E^02 

.221E+02 

.22IE^02 

.220E^02 

, S2bE*02 

• to. 

, iSOC*0S 

.220E*02 

.220E*02 

.220E^02 

.220E*02 

20. 

,2I9E^02 

.220E^02 

.220E*02 

.220E^02 

,22(iE*02 

30. 

.219E^02 

.2I9E^02 

.220E+02 

. 22UE + 02 

,220E*02 

40. 

.2tSE^02 

.2I9E^02 

.2I9E*02 

.220E*02 

,220E*02 

90. 

.2I3E+02 

.219E^02 

.2I9E+02 

.220E*02 

.220E*02 

-SO. 

. 2I8E^02 

.2I8E^02 

.2I9E^02 

.2ZOE*02 

,220E*02 

■ 70. 

.217E^02 

.2I8E^02 

.2I9E+02 

,2SOC*02 

,220E*02 

•90-. 

,2t?£*02 

.2I8E^02 

.219£^02 

.220E*02 

,220E*02 

90. 

.2I7E+02 

.218E^02 

.2I9E+02 

,2£0E*02 

.220E*02 

:oo. 

.2I7E*02 

.218C^02 

,2I9E^02 

.220E*02 

,220E*02 

:io. 

,2t?E*02 

.2ieE»02 

.2I9E^02 

.220E*02 

,220e*02 

:20. 

.2I7E^02 

.2I8E^02 

.2I9E^02 

,220e*02 

.220E*02 

:30. 

.21 7E^02 

.2I8E^02 

. i 1 9E^02 

.220E*02 

.220E*02 

:4o. 

,217E^02 

.2I8E^02 

.2I9E^02 

,220E*02 

.22OE*02 

:90. 

,2t7E*02 

.2I8E^02 

.2I9E702 

.220E*02 

,220E*02 

2S0. 

.2f7E*0i 

.2t8E^02 

. 2I9E«02 

,220C*02 

,220E*02 

i70. 

.2I7E^02 

,2I8E^02 

.219E^02 

.220e*02 

,220E*02 

:90. 

.2I6E^02 

.2I8E402 

.2I9E^02 

.220E*02 

.220E*02 

:9o. 

.2I8E«02 

.2I9E^02 

.2I9E^02 

.220E*02 

.220E*02 

700. 

.2I9E^02 

.2l9Ef02 

.220E^02 

.22CE*02 

.220E*02 

710. 

.219E+02 

.220E«02 

.220E^02 

.220E*02 

.220E*02 

720. 

.220E^02 

.220E«02 

.220E^02 

,220E*02 

,220E*02 

730. 

.221E^02 

.22IE^02 

.221E^02 

.22IE^02 

.220E*02 

740. 

.22IE«02 

.22IE402 

.221E^02 

.2£IE^02 

.220E*02 

790. 

.222E^02 

.222E^02 

.221E^02 

.22IE^02 

,220E*02 

7S0. 

.222E402 

,222E*02 

.22iE^02 

.22IC402 

,220E*02 
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5 


f 

LOC DEN (CN/CN3> 

-K ■ 1H« DAY ■ 20 nONTH > « HOUR ■ 12 HIN ■ 0 


1 •flJD ■ 

24400SO. 

MO - too 

.00 M09 

• 100.00 Ql ■ 0.00 


.LTITUDE 

■ 109.0 






i 



< -SOUTH) 

LATITUDES < *NOATH> 



-OH. 

-90. 

-00. 

-70. 

-00. -90. 

-40. 

-30. 

-WEST) 







♦CA«T> 







10. 

-. t25E*02 

-.1296*02 

-.1246*02 

-, 124E*02 1246*02 

-. 124E*02 

-.1246*02 

20. 

-. I29E*02 

-.1296*02 

-.1246*02 

-. 1246*02 -. 1246*02 

-. 1246*02 

-.1246*02 

! 30. 

-. I29E*02 

-.1286*02 

-.1246*02 

-. 1246*02 -. 1246*02 

-. 1246*02 

-. 124E*02 

1 • 40. 

-. t25E*02 

-.1256*02 

-.1246*02 

-.1246*02 -.124E*02 

-.1246*02 

-.1246*02 

1 90. 

-. I29E*02 

-.1296*02 

-. 1246*02 

-. 1246*02 -. 1246*02 

-. 1246*02 

-.1246*02 

, *0. 

-. 129E*02 

-.1296*02 

-.1246*02 

-. 1246*02 -. 1246*02 

-. 1246*02 

-.1246*02 

70. 

-.I25E*02 

-.1296*02 

-.1246*02 

-.124E*02 -.124E*02 

-.1246*02 

-.1246*02 

1 00. 

-. I29E*02 

-.1256*02 

-.1246*02 

-. 1246*02 -.1246*02 

-.1246*02 

-.1246*02 

90. 

-. J26E«02 

-.1256*02 

-.1256*02 

-. 1246*02 -. 124E*02 

-. 1. '“46*02 

-.1246*02 

00. 

-. I25E+02 

-.1256*02 

-.1296*02 

-.1256*02 -.1246*02 

-.1246*02 

-.1246*02 

; 10. 

-. )25E*02 

-.1296*02 

-. 1296*02 

-.1296*02 -.1296*02 

-. 1246*02 

-.1246*02 

! '*®- 

-. »29E*02 

-.1256*02 

-.1296*02 

-.1296*02 -.1256*02 

-. 1256*02 

-.1256*02 

1 30. 

-. »25E*02 

-. 125E*02 

-.1296*02 

-.1256*02 -.1256*02 

-.1296*02 

-.1256*02 

-40. 

-. I29E*02 

-.1256*02 

-.1296*02 

-. 1256*02 - . 1256*02 

-.1296*02 

- . 1256*02 

90. 

-. I25E*02 

-.1256*02 

-. 1296*02 

-.1296*02 -. 1296*02 

-. 1286*02 

-. 1256*02 

1 -00. 

-. I25E+02 

-.1256*02 

-.1296*02 

-.1296*02 -.1296*02 

-.1296*02 

-.1296*02 

1 -^0. 

-. »29E*02 

-.1256*02 

-.1296*02 

-.1296*02 -.1296*02 

-.1296*02 

-.1296*02 

•90. 

-. I25E*02 

-.1296*02 

-.1256*02 

-. 1296*02 -. 1296*02 

-. 1256*02 

-. 1296*02 

•90. 

-.1256*02 

-. 1256*02 

-.1256*02 

-. 1256*02 -. 1256*02 

-. 1296*02 

-.1296*02 

:oo. 

-.1296*02 

-.1296*02 

-.1296*02 

-. 1296*02 -. 1256*02 

-. 1256*02 

-. 1256*02 

i »»o. 

-. 1256*02 

-.1296*02 

-. 1256*02 

-. 1256*02 - . 1296*02 

-. 1256*02 

-.1256*02 

1 ;so. 

-.1256*02 

-.1256*02 

-.1256*02 

-.1256*02 -.1256*02 

-.1256*0? 

-.1256*02 

:3o. 

-. 1296*02 

-.1256*02 

-.1296*02 

-. 1296*02 -. 1256*02 

-.1296*02 

- . 1256*02 

140, 

-.1296*02 

-.1296*02 

-. 1256*02 

-.1256*02 -.1256*02 

-.1256*02 

-.1256*02 

' :9o. 

-.1296*02 

-.1256*02 

-.1256*02 

-.1296*02 -.1256*02 

-.1296*02 

-.1256*02 

no. 

-.1296*02 

-.1296*02 

-.1296*02 

-.1256*02 -.1256*02 

-.1256*02 

-.1256*02 

1 ;70. 

-.1296*02 

-. 1296*02 

-. 1256*02 

-.1296*02 -.1296*02 

-.1296*02 

-.1296*02 

coo. 

-.1256*02 

-. 1256*02 

-.1296*02 

-.1256*02 -.1296*02 

-.1256*02 

-.1256*02 

C90. 

-.1256*02 

-.1256*02 

-. 1296*02 

-.1256*02 -.1296*02 

-. 1296*02 

-. 1256*02 

1 TOO. 

-.1296*02 

-.1256*02 

-.1296*02 

-.1256*02 -. 1296*02 

-. 1296*02 

-.1256*02 

310. 

-.1256*02 

-.1296*02 

-.1256*02 

-.1296*02 -.1296*02 

-.1256*02 

-.1256*02 

' rso. 

-.1296*02 

-.1296*02 

-. 1296*02 

-. 1296*02 -. 1296*02 

-. 1246*02 

-.1246*02 

1 330. 

-.1256*02 

-.1256*02 

-.1296*02 

-.1256*02 -.1246*02 

-. 1246*02 

-.1246*02 

1 1 1 

-.1256*02 

-.1256*02 

-.1296*02 

-. 1246*02 -. 1246*02 

-.1246*02 

-. 1246*02 

' J90. 

-.1296*02 

-.1296*02 

-.1246*02 

-.1246*02 -. 1246*02 

-. 1246*02 

-.1246*02 

I 3«0. 

-.1296*02 

-.1256*02 

-.1246*02 

-.1246*02 -.1246*02 

-.1216*02 

-.1246*02 




^ > 

! » 

1 

/ 

I 

( 

I . 



0 


LOG DEN (CN^CM3> 


PmCC 


rR - l5iG6 DDV - 20 HONTH ■ ft HOUR - <2 HIN - 0 

■ 2440020. MO ■ 100,00 FI 00 - 100.00 Cl • 0.00 

ALTITUDE - 105.0 


<-60UTH> LATITUDES <»NOIiiTH> 


LON. 
i -WEST) 
< ♦CAST f 

-20. 

-10. 

0. 

10. 

20. 

30. 

40. 

to. 

-,1£4Et02 

-,124E»02 

-. I£4E»02 

-. »24E*02 

-. I24E402 

I24E402 

124E*02 

20. 

I24E^02 

-. I24E*02 

-. I24C4 02 

-. I24E*02 

-. I24E*02 

I24E»02 

I24E*02 

30. 

124E«02 

-. I24C*02 

124E + 02 

-. I24E402 

-. 124E»02 

- . t24£«02 

I24E^02 

40. 

-. I24E«02 

-. I24E^02 

-. I24E^02 

-. I24E^02 

I24E*02 

-. I24E^02 

-. l24Et02 

50. 

I2*'E^02 

-, I24E»02 

-. 124E^02 

I24E*02 

-. i:-E*02 

-. I24E^02 

I24E*02 

ftO. 

-. I24E^02 

-. I24E«02 

-. I24E^02 

I24E+02 

I24E»02 

-. I24£^02 

-. I24£t02 

70. 

-. I24E402 

-. I24E402 

-. I24E402 

-. I24E*02 

- . l24Et02 

-. I24E»02 

-. I24Et02 

00. 

I24E*02 

-. I24E^02 

-. I24E*02 

-. I24E^02 

I24E*02 

-. I24£t02 

I24£t02 

90. 

I24E^02 

- . I24E^02 

-. I24E*02 

I24F + 02 

-. I24E^02 

-. I24£«02 

-. I24E402 

' 00. 

-. I24E402 

-. I24E*02 

-. l24Et02 

-, I24E^02 

-. I24E«02 

-. I24£^02 

-. I24E‘02 

' 10. 

-. I24C»02 

-. I24E^02 

-. 124E*02 

-. I24E*02 

I24E*02 

t24E»02 

• . ;r!4E‘02 

'20. 

I24E^02 

-. I24E*02 

-. 124E^02 

-. 124C402 

I24E^02 

-. I24£^02 

I24C‘02 

<30. 

-, I25E402 

-. 125E402 

-. I25E402 

-. I24E402 

-. I24E^02 

- . I24E402 

- . I24E»02 

•40. 

125C«02 

-. I25E402 

-. l25Et02 

-. I28E*02 

-. I25E402 

I24E^02 

I24E«02 

ISO. 

-. I25E«02 

I2SE«02 

-. I2SE402 

-. I25E«02 

-. I25E402 

-. I25E«0? 

-. 1240 02 

;so. 

- . I25E402 

-. l2SEt02 

-. 125E402 

-. 125E*02 

-. I25E*02 

-. I25E*02 

-. I25E»02 

170. 

-. I25E«02 

I2SE*02 

-. I25E402 

-. I25E«02 

-. I25E402 

-. 125E«o2 

-. I25E+02 

ISO. 

-. I25C^02 

-. ISSE^OS 

-. 125E402 

-. I25C402 

-. I2l>E402 

IC‘5£*02 

I29E402 

190. 

I25E402 

I25E*02 

-. I25E»02 

-. I25E*02 

-. 125E*02 

I2>r ‘02 

- , I25E402 

:oo. 

l2SEi02 

- . I25E402 

-, I25E4S2 

-. I25E*02 

-. I25E402 

-. I25E^02 

-. I25E+02 

:to. 

- . 1 25E4 02 

-. 12SE + 02 

■. I25E^02 

-. I25E + 02 

125E*02 

- . I25E*02 

I25E‘02 

:?o. 

-. I25E*02 

-, I25E402 

-. I25E402 

-. I25E402 

-. I28E + 02 

-. I25E*02 

I25E + 02 

iSO. 

-. I?SE*02 

-. I25E + 02 

- . I28E*02 

I28E + 02 

-. I26E + 02 

-, 125E + 02 

I25E402 

;<>o. 

I25E«02 

-, I25E^02 

I25E402 

-, I25E4 02 

-. I25E*02 

-. I25E + 02 

-. I25£‘02 

250. 

-. I25E^02 

I25E^02 

I25E402 

-. I25E*02 

-. I25E + 02 

t28£402 

I26E*02 

240. 

I25E^02 

-. I25E*02 

-. I25C*02 

-. I2SE*02 

-. I25E«02 

-. 125E + 02 

125E*02 

270. 

-. I25E402 

-. I25E402 

-. I2SE402 

125E4 02 

-. I25E*02 

-. I25E4 02 

I25E*02 

280. 

-. I2SE402 

-. I25E*02 

-. I25E402 

-. I25E402 

-. 125E402 

-. 125E402 

-.I25E402 

290. 

- , 125E402 

-. I2SE402 

-. I25E*02 

-. I25E*02 

-. I25E402 

-. 125E402 

-. I24E*02 

300. 

I25E^02 

-. 125E*02 

-. 125E402 

-.125E*02 

124Et02 

-. I24E«02 

I24E»02 

3tO. 

I24E«02 

-. I24E402 

I24E402 

-. I24E*02 

-. l24Et02 

I24E»02 

-. I24E*02 

T20. 

124E*02 

I24E*02 

I24C*02 

t24E*02 

124E*02 

-. I24E*02 

-. I24E402 

330. 

“. I24E+02 

I24E+02 

I24E+02 

-. I24E402 

- . I24E402 

I24E»02 

-. l2-tC‘02 

340. 

124E»02 

I24E*02 

-. 124E402 

I24E402 

-. I24E402 

-. 124E»02 

I24E + 02 

350. 

I24C*02 

-. I24E402 

-. I24E402 

124E+02 

I24E*02 

-. I24E*02 

-. I24E*02 

:«o. 

-. I24E402 

-. I24E402 

-. I24E402 

I24E402 

-. I24E402 

-. I24E*02 

-. I24E402 




I. 



3 


LOG OCN <CN/^CH3> 

'K • m* OAV ■ 20 MONTH - « HOUK - 12 MIN - 0 


<NJO ■ 

2440020. 

FtO ■ 100. 00 MOI 

- 100.00 

Cl • 0 

•ltituoe 

- I8S.0 








(-SOUTH) 

LATITUDES 

< *M02TM> 

-ON. 

00. 

00. 

70. 

• 0. 

90. 

-WEST) 






^ *CAST) 






to. 

-. t24E*02 

-.1246*02 

-.1246*02 

-.1246*02 

-.1246*02 

20. 

- , 124C»02 

-.1246*02 

-, 1246*02 

-. 1246*02 

- , 1246*02 

30. 

I24E»02 

-.1246*02 

-. 1246*02 

-.1246*02 

-, 1246*02 

40. 

t£4E*02 

-.1246*02 

-.1246*02 

-.1246*02 

-.1246*02 

90. 

»24E*02 

-. 1246*02 

-. 1246*02 

-, 1246*02 

-, 1246*02 

«0. 

- . I24E*02 

-.1246*02 

-.1246*02 

-.1246*02 

-. 1246*02 

70. 

l£4E*02 

-.1246*02 

-.1246*02 

-. I24E*02 

-. 1246*02 

00. 

-. I24E«02 

-.1246*02 

-.1246*02 

-.1246*02 

-. 1246*02 

90. 

-. t£4E*02 

-.1246*02 

-.1246*02 

-. 1246*02 

1246*02 

OC. 

-. 124E*02 

-.1246*02 

-.1246*02 

-.1246*02 

- . 1246*02 

to. 

-. I24E*02 

-, 1246*02 

-. 1246*02 

-.1246*02 

-.1246*02 

'20. 

I2:4E*0£ 

-.1246*02 

-.1246*02 

-.1246*02 

- , 1246*02 

30. 

I24E*02 

-.1246*02 

-.1246*02 

-.1246*02 

-.1246*02 

■ 40. 

-.1246*02 

-.1246*02 

-, 1246*02 

-.1246*02 

- .1246*02 

SO. 

-.1246*02 

-. 1246*02 

-.1246*02 

-. 1246*02 

-. 1246*02 

■SO. 

-. I24E*02 

-.1246*02 

-.1246*02 

-. 1246*02 

- . 1246*02 

■70. 

-. 124E*02 

-.1246*02 

-, 1246*02 

-.1246*02 

-. 1246*02 

■00. 

-.1256*02 

-.1246*02 

-.1246*02 

-. 1246*02 

-. 1246*02 

90. 

I2SE*02 

-. 1246*02 

-. 1246*02 

-, 1246*02 

-. 1246*02 

:oo. 

-.1256*02 

-. 1246*02 

-. 1246*02 

1246*02 

- . 1246*02 

210. 

-, 12DE*02 

-. 1246 *02 

-. 1246*02 

-.1246*02 

- , 1246*02 

220. 

-. t25E*02 

-.1246*02 

-. 1246*02 

-. 1246*02 

1246*02 

230. 

-. 12?ie*02 

-, 1246*02 

-, 1246*02 

-. 1246*02 

-.1246*02 

240. 

1266*02 

-.1246*02 

-. 1246*02 

-, 1246*02 

- , 1246*02 

250, 

-. I25E*02 

-.1246*02 

-.1246*02 

-.1246*02 

-.1246*02 

200. 

-, I25E*02 

-.1246*02 

-. 1246*02 

-.1246*02 

-. 1246*02 

270. 

-. I24E*02 

-.1246*02 

-.1246*02 

-.1246*02 

-, 1246*02 

290, 

-.1246*02 

-.1246*02 

-.1246*02 

-.1246*02 

-.1246* ? 

290. 

-. 1246*02 

-.1246*02 

-. 1246*02 

-.1246*02 

-. 1246*02 

?Q0. 

-. 1246*02 

-. 1246*02 

-. 1246*02 

-, 1246*02 

-, 1246*02 

jtO, 

-.1246*02 

-.1246*02 

-.1246*02 

-.1246*02 

-.1246*02 

)20. 

-. I24E»02 

-.1246*02 

-, 1246*02 

-, 1246*02 

-, 1246*02 

230. 

-. 1246*02 

-. 1246*02 

-, 1246*02 

-.1246*02 

-. 1246*02 

;40. 

-.1246*02 

-.1246*02 

-.1246*02 

-.1246*02 

-.1246*02 

790. 

-. 1246*02 

-. 1246*02 

-.1246*02 

-.1246*02 

-. 1246*02 

700. 

-.1246*02 

-.1246*02 

-.1246*02 

-, 1246*02 

-. 1246*02 



JAC7I 

CHCCUICO 

All 

ai 

• • 

PH 

HOH. , 

ai 

fcEPT. 

IStI 

HASA/HSPC 

6ECDA 

SVtTCH 


MC7I 

EKECUTC6 

ATi 


!• 

PH 

HON, , 

31 

EEPT. 

IStI 

NASA,^nSPC 

AEEDA 

tVSTEH 



EXECUTED 

ATi 

2i 

!• 

PM 

HON, , 

31 

8CPT, 

IStI 

NASA/HSPC 

PEEDA 

tVSTCM 


J«»C7t 

EXECUTED 

ATI 

2i 

!• 

PH 

HON, , 

21 

SEPT, 

IStI 

NASa/MSPC 

AEEDA 

tVtTEH 


JAC7I 

EXECUTED 

ATi 

ai 

ID 

PH 

MON, , 

21 

SEPT, 

IStI 

NASA/HSPC 

AEEDA 

SVSTEH 


JAC7I 

EXECUTED 

ATi 

ai 

It 

PM 

MON, , 

21 

SEPT, 

IStI 

NhSn/HSPC 

PEEDA 

irSTEH 



CXECUTEP 

AT I 

8> 

It 

PM 

HON, . 

21 

SEPT, 

IStI 

NASA/Hsrc 

AEEDA 

tVSTEH 


JAC7I 

EXECUTED 

ATi 

8i 

It 

PM 

HON, , 

31 

SEPT, 

IStI 

NASA/HSPC 

AEEDA 

SVtTCH 


J<»C7I 

EXECUTED 

ATi 

ai 

It 

PM 

HON, , 

31 

SEPT, 

isai 

NASA/MSFC 

AEEDA 

SVSTEH 


JAC7I 

EXECUTED 

ATI 

ai 

It 

PM 

HON, . 

21 

SEPT, 

isei 

NASA/HSFC 

AEEDA 

SVSTEH 


TEHP 


DEC. K 


PhOE I 



OPV - 20 

MONTH 

X 3 HOUR 

- 12 MIN ■ C 



XMJO ■ 2440029. F( 

10 ■ too. 

00 MOB - 

100.00 

Cl - 0. 

00 


AUTITUC>E - 

185.0 










< -SOUTH) LPTITUOE6 

< *NOPTH> 



LON, 

-90. 

-30. 

-70. 

-60. 

-50. 

-40. 

-30. 

'-WEST) 








^♦EPST; 








10. 

.659E*u3 

,670E«03 

.681E«03 

.693E»03 

,705£*03 

. 716E'»03 

.727E+03 

SO, 

.659E'»03 

.670E+03 

,633E«03 

.695E*03 

.708E*03 

.7SOE*03 

. 73IE*03 

70. 

. 659E*03 

,67IE*03 

.663E'»03 

.696E'*a3 

. 70'9E*03 

. ?2\E*03 

. 73SE->0:. 

40. 

. 6B9E»03 

,670Et03 

.683E^03 

.696E»03 

•703E+03 

.720E»03 

.731E+03 

50. 

.659E*03 

,670E'»03 

.68IE+03 

.693E*03 

. 705E*03 

.717E'»03 

.7S7E+03 

60. 

,659E*03 

,668E+03 

.679E+03 

.690E'*03 

,70IE^03 

.7I2E*03 

.72SE+03 

70. 

.659E»03 

.667E+03 

.676E+03 

.6e6E*03 

.695E+03 

.705E+03 

,7I4E»03 

00. 

.6S9E«03 

,665Et03 

.672E+03 

.680E«03 

•669E+03 

.697E+03 

. 705E + 03 

90, 

.f.9E*03 

.663E'»03 

.669E+03 

.675E+03 

.682E-»03 

.689E-»03 

■696E+03 

) 00. 

• 659E-»03 

66IE403 

.664E«C3 

,669E-»03 

.674E+03 

.630Et03 

.685E+03 

110. 

.659E+03 

,659E-»03 

.660E»03 

.663C«03 

,666E'»03 

.670E+03 

.675E+03 

ISO. 

, 659E'>03 

657E*03 

.656E+03 

,657E'>03 

.659E+03 

.66IE«03 

.665E*03 

130. 

.659E+03 

. 65B£*03 

.652E+03 

.65IE+03 

.65SE+03 

.653E*03 

.65E-.E-»03 

140. 

.659E*03 

,653E»03 

.649E+03 

,646E*03 

.645E+03 

.645E'»03 

,647E'»03 

150. 

.659E*03 

.65SE«03 

.6-46E«03 

.642E*03 

.639E+03 

.638E+03 

.639E'*03 

160. 

.659E*03 

.6S0E+03 

,643E'»03 

,638E*03 

.SSSE'fOa 

.633E'»03 

.633E+03 

170, 

, 659E+03 

.649E«03 

.64IE+03 

.635E+03 

,63IE*03 

.628E'»03 

,627E'»03 

130. 

.SSOE'fOS 

649E+03 

,640E'»03 

,633E4^03 

.628E'»03 

.629E*07 

.623E-f03 

190. 

,659E'»03 

.648E+03 

.639E+03 

.SSSE'fOS 

,626E*03 

.b23Et03 

.62IE-f03 

:oo. 

.6S9E+03 

648E*03 

.638E'»03 

.63IE+03 

,625E»03 

.621E>03 

.6l-SE-»03 

210. 

,659E*03 

649E+03 

.673E»03 

.63OE+03 

.6S4E+03 

.621E'»03 

.SISE'fOS 

2S0 

,655E-i03 

. 64SE-* 03 

,63&Ei 03 

.630E403 

, 6 2 4 E 0 3 

.621E+03 

,619E-»03 

230. 

.659E'f03 

648E*03 

,63e£'»03 

,630E■^03 

.624E-»03 

,621E»03 

.6r?E->03 

240. 

. 6S9L + 03 

64a£-t 03 

.638E+03 

.63IE+03 

.6^BE■^03 

.62IE+03 

.6I'9E'»03 

S50, 

.659E+03 

648E+03 

.639E-»03 

.63IE^03 

, 626E+03 

.622E+03 

•620E+03 

2-0. 

.659E+03 

648E'»03 

.64 0E«’03 

,633E^03 

.628£*03 

. 624E*03 

,€2SE*03 

270. 

.659£*03 

649E*03 

.641E^03 

.635E+03 

,63IE'»03 

.essE-^os 

.(•2rE*03 

280. 

6S9E*03 

SSIE'fOS 

.644E«03 

.639Et03 

.635E«03 

.634E'^03 

,634E*03 

290. 

tSOE'fOS 

652e•^03 

.64 7E'»03 

.644E+03 

.642E+03 

,641E'»03 

.64SE«03 

300. 

.659E+03 

6S4E<’03 

,65IE^03 

,649E«03 

.649E+03 

,650E*03 

.652E+03 

310. 

659E+03 

657E»03 

■656E+03 

.656E+03 

.658E+03 

.660E■^03 

.664E+03 

320, 

.659E+03 

659E-»03 

,66IE'^03 

,6e3£*03 

.667E+03 

.671E»03 

.676E'»03 

330. 

659E+03 

662Ei03 

.666E«03 

,67IE'»03 

, 676E* 03 

.68SE+03 

.688E*03 

■40. 

. 659E'»03 

664E'»03 

.6?0E-*'03 

. 676E'* 03 

.6e5E•^03 

.693E+03 

.700E+03 

350. 

. 6S9E-»03 

eSSE'^OS 

.675E+03 

.664E'»03 

,693E*03 

.702E'^03 

.71 lE'^OS 

760 . 

6S9E+03 

668E4-03 

.670E+O3 

,6B9E*03 

.700E'»03 

.7I0E+03 

.720E*^03 


.) 

J 

J 

I 



0 



> 





TCHP. OEG. 

K 




ft ■ 4 

DAY - 20 

MONTH 

- 6 HOUR - «2 MIN - 0 



• 244002S. FI 

0 - too. 

00 FI OB 

« 100.00 

GI - 0. 

00 


LTITUOE • 

165.0 










< -SOUTH) 

LATITUDES 

< ♦HOATH) 



ON. 

-20. 

-10. 

0. 

to. 

20. 

30. 

40. 

-WEST) 








»EAST } 








to. 

. 736E + 03 

744E*03 

.750E+03 

.754E403 

.756E+03 

.756E»03 

.754E+03 

20. 

. 740E»03 

748E*03 

.755E*03 

. 759E*03 

, 76IE*03 

.760E+03 

.758E*03 

30. 

. 742E + 03 

750E*03 

. 756E + 03 

. r60E«03 

. 762E*03 

. 762E*03 

. 769E + 03 

40. 

. 741E+03 

749E*03 

. 755E*03 

. 759E»03 

. 76l£t03 

. 76IE*03 

. 753E+03 

50. 

. 737E»03 

745E*03 

.75IE»03 

. 755E+03 

. 757E + 03 

. 7S7E»03 

.755E*03 

60. 

.73IC+03 

738E+03 

.744E«03 

. 746E^03 

.75IE^03 

. 75IE+03 

.750E+03 

70. 

. 722E403 

730E*03 

.735E+03 

.740E403 

. 742E + 03 

.743E+03 

.743E*03 

80. 

. 7I3E»03 

7I9E*03 

. 725E*03 

.729E»03 

. 732E*03 

.734E*03 

. 735E*03 

90. 

. 702E*03 

703E+03 

. 7I4E*03 

. 71 8E*03 

. 722E + 03 

. 724E*03 

.726E*03 

00. 

.691E+03 

69.'E*03 

.702E+03 

. 7Ci6E4 0i 

.71 OE+03 

. 7I4E»03 

.7I6E*03 

to. 

.680£*03 

685E*03 

.689E+03 

.694E*03 

.699E+03 

.703E*03 

. 707E*03 

20. 

.669E+03 

673E+03 

.678E+03 

.CC'2E*03 

. 6&7E + 03 

.692E*03 

.697E+03 

30. 

.659E»03 

662E»03 

.666E^03 

.67IE+03 

.677E+03 

.683E*03 

.689E+03 

40. 

.649E«03 

652E«03 

.666E«03 

.66IE«03 

.667E»03 

.674E*03 

.68IE+03 

SO. 

.64IE+03 

643E4^03 

.647E»03 

.652E»03 

.658E*03 

.666E403 

.674E+03 

60. 

.634E^03 

63£.£»03 

.639E+03 

.644E+03 

.65IE»03 

.659E»03 

.668E+03 

70. 

. 628E403 

630E«03 

.633E«03 

.638E«03 

.645E»03 

.654E*03 

.6638 4^03 

30. 

.624E*03 

625E'»03 

.62984^03 

.634E+03 

.64IE+03 

.650E+03 

,660E*03 

90. 

.62IE«03 

622E«03 

.626E+03 

.63IE+03 

.638E+03 

.647E+03 

.657E403 

00. 

.6I9EO03 

6?>}£403 

.624E+03 

.629E+03 

.636E+03 

.645E+03 

.6568403 

10 . 

.eiSE'f 03 

620E«03 

. 62! 3E ♦ 03 

.62&E+03 

. 636E + 03 

.645E+03 

.655E403 

20. 

.6I0E+03 

620E'»03 

.623E+03 

.628E+03 

.635E+03 

.644E'»03 

.655E403 

30. 

.618E+03 

620E*03 

.623E*03 

.628E+03 

.63CE+03 

.645E+03 

.655E403 

40. 

.6I9E+03 

620E'»03 

.623E'»03 

.629E«03 

.636E+03 

.645E>03 

.655E403 

50. 

.620E403 

622E-»03 

.625E403 

.630E403 

.637E403 

.646E403 

.657E403 

60. 

.623E+03 

625E403 

.628E«03 

.633E'»03 

.640E+0" 

.649E‘^03 

.659E403 

70. 

. 628E«03 

630E'»03 

.633E403 

.638E4’03 

.645E403 

.654E403 

.663E403 

30. 

.635E403 

637E+03 

. S4IE^03 

.646E403 

.652E*03 

.66DE+03 

.669E403 

90. 

. 644E«03 

647E*03 

.65IE»03 

.65fE*03 

.66284^03 

.669E403 

.676E403 

00. 

.655E+03 

658E+03 

.662E+03 

.667E+03 

.673E+03 

.679E+03 

.686E403 

10. 

.667E+03 

672E«03 

.676E+03 

.68IE+03 

.686E+03 

.69IE>03 

.696E403 

20. 

.6eiE+03 

68eE-»03 

.69IE+03 

.695E+03 

. 700E+03 

.704E+03 

.7OSE403 

30. 

.695E»03 

700E*03 

.705E^03 

.71 OE+03 

.7I4E+03 

.7I7E+03 

.7I9E403 

40. 

.708E+03 

7I4E403 

.7I9E+03 

.724Ei03 

.727E+03 

.729E+03 

.730E403 

50. 

. 7I9E+03 

726E*03 

. 732E«03 

.736E«03 

. 739E+03 

.740E>03 

.740E403 

60. 

. 729E+03 

736E'»03 

.742E*03 

.746E+03 

.749E+03 

.749E+03 

.748E403 


PmCE 2 


J 





TEHP. DEC. K 3 


YR - 


DRV ■ 20 nONTH 

■ 6 HOUR - t2 HIM - 0 

X»JO 

■ k 

440028. 

FtO - too. 

00 Ft 06 

- too . 00 

Cl - 0 

ALTITUDE 

• tes.o 









< -SOUTH) 

LATITUDES 

< ♦NORTH) 

LON. 


50. 

60. 

70. 

80. 

90. 

( -WEST) 






< ♦EAST) 






to. 


.750E+03 

.744E^03 

.737E*03 

.726E+03 

.7t7E^03 

20. 


. 753E^03 

.747E*03 

.736E«03 

. 729E*03 

.7t7E»03 

30. 


. 7E4E^03 

.748E+03 

.739E^03 

.729E*03 

,7I7E^03 

40. 


. 754E+03 

.747E»03 

.739E+03 

.729E^03 

.7t7E^03 

SO. 


. 75IE^03 

.745E+03 

.737E^03 

.728E+03 

.7t7E^03 

60. 


. 746Et03 

.74tE403 

.735E»03 

. 727E«03 

.7t7E^03 

70. 


.740Et03 

.737E+03 

.732E403 

.725E+03 

.7I7E+03 

00. 


. 734E*03 

.73tE*03 

.728E^03 

.723E*03 

.7t7E+03 

90. 


.726E+03 

.725E^03 

.724E^03 

.72tE^03 

, 7t7E^03 

too. 


. 7ISE^03 

.7t9E»03 

.7t9E^03 

.7t9E^03 

.7\7£*03 

t to. 


.71 0E*03 

.7t3E*03 

.7tSE^03 

.7t7E*03 

.7t7E^03 

120. 


. 702E+03 

.707E+03 

. 7t tE*03 

.7t5E^03 

.7I7E^03 

t30. 


.696E*03 

.70tE+03 

.707E403 

.7t3E+03 

.7t7E^03 

140. 


.666E>03 

,696E^03 

.704E^03 

.71 tE^03 

.7t7E^03 

ISO. 


.682E+03 

.69tE^03 

,700E*03 

.709E*03 

.7t7E^03 

160. 


,677E>03 

.668E^03 

.698E^03 

. 708E^03 

.7t7E^03 

170. 


.673E^03 

.665E^03 

.696E^03 

.707E^03 

.7t7E^03 

180. 


. 67IE^03 

.6BSe*03 

.694E^03 

. 706E*03 

.7t7E^03 

t90. 


,669E*03 

.66IE^03 

.693E403 

.706E+03 

.7I7E+03 

200. 


, 667E+03 

.680E^03 

. 693E+ 03 

.705E*03 

.7t7E^03 

2t 0. 


. 66 7E+ 03 

.67SE+03 

.692E+03 

. 70SE+03 

.7t7E^03 

220. 


.667E+03 

,679E»03 

.692E+03 

.705E+03 

.7t7E^03 

230. 


, 667E+03 

.679E+03 

.692E+03 

. 705E+03 

.7t7E+03 

240. 


.667E+03 

.680E^03 

.692E^03 

.705E+03 

,7I7E^03 

250. 


.666E^03 

.SeOE'fOS 

.693E+03 

.705E+03 

.7t7E^03 

260. 


.670E+03 

.662E^03 

.694E+03 

.706E*03 

.7t7E+03 

270. 


.674E+03 

.685E403 

.696E^03 

.707E+03 

.7t7E^03 

260. 


.676E^03 

.668E^03 

.698E^03 

.708E+03 

.7I7E^03 

290. 


.685E+03 

.693E+03 

.702E+03 

.7I0E+03 

.7t7E+03 

300. 


.692E^03 

.699E^03 

.706E^03 

.7I2E>03 

.7t7E^03 

3t0. 


.70tE+03 

.706E^03 

.7t 0E^03 

.7t4E+03 

. 7t7E>03 

320. 


.7t IE+03 

.7t4E+03 

.7t6E^03 

.7t7E+03 

.7t7E+03 

330. 


.72tE+03 

.72tE^03 

.72tE403 

.720E«03 

.7t7E .03 

340. 


.730E+03 

.726E«03 

.726E^03 

.722E+03 

.7t7E+03 

3S0. 


.738E+03 

.73SE»03 

.730E^03 

. 724E^03 

.7t7E+03 

360. 


.74SE*03 

.740E4’03 

.734E^03 

.726E>03 

.7t7E>03 



> 


) 


(N2> PACE . 


ift ■ 1966 

DAY ■ 

20 MONTH 

- 6 HOUR - 12 1 

HII4 - 0 



■ 244 0026. 

Ft 0 - t 00. 00 Ft OB 

■ too . 00 

0 1 - 0 . 

00 


aUTITUDE - 

185.0 










< -SOUTH) 

LATITUDES 

( ♦NORTH) 



LON. 

-90. 

-80. 

•70. 

-60. 

-50. 

-40. 

-30. 

1 -WEST) 








(♦EAST) 








to. 

.943E^01 

.950E40t 

.952E40t 

.953E40t 

.955E40t 

.956£40t 

.958E40t 

20. 

.94eE«0l 

.950E+0t 

.952E*0t 

.954E40t 

. 955E+0t 

. 957Et0t 

. 958E40t 

30. 

.948E40I 

.950E*0t 

.952E40t 

.954E+0t 

.956E*0t 

.957E40t 

.959E40t 

40. 

.948EtOI 

.95CE*0t 

.952EtOt 

.954E^0t 

.95EE40t 

.957E+0I 

.95&E40t 

so. 

.940E«0I 

.950E»0t 

.952E*0t 

.953E40t 

.95SE+0t 

.957£40t 

.958E40I 

60. 

.948E^01 

.950E401 

.95tE*0t 

,953E>0t 

.954E40I 

.956E*0t 

.957E40t 

70. 

.948E401 

.949E+0I 

.95t£40t 

.952(£40t 

.954E40t 

.955E40I 

.956E40t 

60. 

.948E^0t 

.949E*0t 

.9S0E»0t 

.952E40t 

.953E^0t 

. 954E*0t 

.955E40t 

90. 

.948E+0I 

.949E+0t 

.950E+0I 

.95tE*0t 

.9S2E^0t 

.953E^0t 

.954E40t 

t 00. 

.943E+0I 

.949E+0t 

.949E40t 

.950E*0t 

.95tE+0t 

.95tE+0t 

.952E+0t 

tic. 

.94SE^01 

.948E40t 

.948E^0t 

.949E*0t 

.949E+Ot 

,950E+0t 

.9StE40t 

<20. 

,948E»0I 

.948E+0t 

.949E^0t 

.948E40t 

.948E^0t 

.949E^0I 

.949E40t 

!30. 

.948E+0I 

.94SE+0t 

.947E*0t 

.947E40t 

.947E40t 

.947E40t 

.948E40I 

<40. 

. 946E^0I 

.947E+0t 

.947E+0I 

.946E^0t 

.946E+0t 

.946E40I 

.946E40I 

<50. 

.948E+0I 

.947E*0t 

.946E+0t 

.945E*0t 

.945E+0t 

.945E40t 

.945E40t 

<60. 

.948E+0I 

,947E40t 

.946E+0t 

.945E*0t 

.944E^0t 

.944E40t 

.944E+0t 

I 70. 

.948E«0t 

.947E+0t 

.945E+0t 

.944E+0t 

.944E40t 

.943E+0t 

.943E401 

•90. 

.948E^0t 

.947E*0t 

.945E*0t 

.944E40t 

.943E+0t 

.943E+0t 

.942E40I 

'90. 

.948E+01 

.947E+0t 

.945E+0t 

.944E*0t 

.943E+0t 

.942E+0t 

.942E40I 

^00. 

.948E»0t 

.946E+0t 

.945E+0t 

.944E+0t 

,943E^0t 

,942E40t 

.942E40t 

:t 0. 

.948E+0I 

.946E+0t 

.945E+0t 

.943E+0t 

.942E^0t 

.942E+0I 

.94tE40t 

:2o. 

.948E+0I 

.94e£+0t 

.945E+0I 

.943E+0t 

.942E^0t 

.«12E+0t 

.94IE+0t 

!3U. 

.948E+01 

.94eE«0l 

.945E*0t 

.943E*0I 

. 942E^OI 

.9 (2E*0t 

. 94 1 E^OI 

i4 0. 

.948E+01 

.946E+0t 

.943E+0t 

.944E+0t 

.942E^0t 

.942E40t 

.94tE40t 

250. 

.948E401 

.946E40t 

.945E40t 

.944E*0t 

.943E40t 

.942E40t 

.942E40I 

260. 

.948E+01 

.947E+0t 

.945E»0t 

.944E40t 

.943E^0t 

.942E40t 

.942E40t 

270. 

.948E+0I 

.947E40t 

.945E+0t 

.944E«0t 

.944E40t 

.943E40I 

.943E40t 

280. 

.948E+01 

.947E4flt 

.946E+0t 

.945E*0t 

.944E+0t 

.944E40I 

.944E40I 

290. 

.948E*0t 

.947E*0t 

.946E^0t 

.946E+0t 

.945E^0I 

.945E+Ot 

.945E+0t 

r'»o. 

.948E+0t 

.948E^0t 

.947E+0t 

.947E+0t 

.947E^0I 

.947E40t 

.947E40t 

*10. 

.948E+0t 

.948E^0t 

.948E40t 

.948E40t 

.948E+0t 

.948E40t 

.949E40t 

-20. 

.948E+01 

.948E40t 

.949E+0t 

.949E«0t 

.949E^0t 

.950E40t 

.95tE40t 

730. 

.949E+01 

.949E+0t 

.949E40t 

.950E+0t 

.95tE+0t 

.952E40t 

.953E+0t 

740. 

.948E401 

.949E+0t 

.9S0E40t 

.9StE+0t 

.952E+0t 

.953E40t 

.954E40I 

750. 

.948E40I 

.949E4-0 

.95tE*0t 

.952E4-0t 

.953E40t 

.955E*0t 

.956E*0t 

•60. 

.948E40I 

.950E'<-wt 

.95tE40t 

.953E40t 

.954E+0t 

.956E40t 

.957E40t 


3 







yft - t968 DAY - 20 MONTH - 0 HOUR ■ 12 NIN - 0 

^NJD ■ 2440020. FIO ■ 100.00 F*OB ■ 100.00 Gt ■ 0. 

mLTITUOE - 105.0 


uON. 

‘ -WE6T> 
♦EA&T> 


SO. 


60 . 


< -SOUTH) LATITUDES <*NORTH> 
70. 00 . 00. 


«0. 

.90tE»01 

.900Et0l 

,959E40I 

.956E«01 

.957E»01 

20. 

.90IE*OI 

.900E-»OI 

,959E*01 

.950E*O1 

.9S7E»0I 

30. 

,90IE*01 

.900E-»0I 

■959E»0I 

.958E*01 

.957E*0I 

40. 

.SOtE^OI 

.900E40I 

.9S9E+0I 

.9SSE«0t 

.957E+0I 

SO. 

.90IE*0t 

.SOOE^OI 

.959E*0I 

.9S8E«0t 

.987E»0I 

00. 

.900E«OI 

.900E«01 

.959E*^0I 

.9S8E«01 

.957E*01 

70. 

.9O0E«0t 

.9S9E40t 

.958E*0I 

.958E+0I 

.957E401 

00. 

.959E+0I 

.SSOE^Ot 

.9S0E«0I 

.957E»0I 

.9S7E*0I 

SO. 

.958E+0I 

.958E40I 

.957E»0I 

.957E-»0I 

.957E*01 

1 00. 

.957E^01 

.957E+01 

.957E*0I 

.957E401 

.957E*0I 

t 10. 

.950E+01 

.SSOE^OI 

.9S0E«0I 

.957E*01 

. 9&7E+01 

120. 

.955E+0t 

.95EE40I 

.9SOE401 

.950E^OI 

.957E+0I 

130. 

.954E+0I 

.954E40I 

.9S5E40I 

.9SOE401 

.957E+0I 

140. 

.SSSEt 01 

.OSOE^OI 

.9S9E«^0I 

.SSOE^OI 

.957E»0I 

!S0. 

.952E*0I 

.953E«0t 

.9S4E40I 

.956E+01 

.957E+0I 

>00. 

.95l.: + 0I 

.9SSE40I 

.954E«0I 

.955E+0I 

.957E+0I 

• 70. 

.950E40I 

.9S2E401 

.954E«0I 

.955E«0t 

.957E+01 

>00. 

.950E«0t 

.952E«0I 

.SSSE^OI 

.955E40I 

.957E401 

190. 

.950E*0I 

.952E«01 

.953E«0I 

.955E401 

.957E40I 

;>oo. 

.950E+01 

.9S1E«0I 

,953E^0I 

.955E^01 

.957E+0I 

:io. 

.950E+0I 

.SSIE-fOt 

.953E«^0I 

.955E+01 

.957E+01 

220. 

.949E+01 

.951E>01 

.953E+0I 

.955E+01 

.957E401 

230. 

.949E+01 

.95IE+0I 

.953E'»0I 

.955E+0I 

.9S7E+0I 

24 0. 

.950E^01 

.951E'»01 

.953E+0I 

.955E+01 

.957E+0I 

250. 

.950E^0t 

.952E40I 

.953E40I 

.955E*0I 

.557E401 

200. 

.SSOE^OI 

.952E40I 

.9S3E401 

.SSSE+OI 

.957E^0I 

270. 

.951E+01 

.9S2E«0I 

.9S4E«0I 

.955E+01 

.957E*0I 

280. 

.95IE+01 

.953E^0t 

.954E^0I 

.955E+01 

.957E+0I 

290. 

.952E«0I 

.SSSE'fOt 

.955E+01 

.956E40I 

.9S7E+0I 

TOO. 

.953E«0I 

.954E-»0I 

.SSSE^OI 

.956E+01 

.957E*0I 

710. 

.954E40I 

.955E40f 

.9S0E+0I 

.950E40I 

.957E+01 

720. 

.950E«01 

.SSOE'fOl 

.9SOE40I 

.957E+01 

.957E+0I 

730. 

.957E40I 

.957E+01 

.957E+0I 

.957E4-01 

.957E+01 

740. 

.958E+0I 

.958E401 

.9S8E40I 

.957E401 

.957E40I 

750. 

.959E«0I 

.959EfOI 

.9S8E^0I 

.SSOEi'OI 

.957E^01 

700. 

,900E«Ot 

.OOOE^OI 

.959E40I 

.958E«01 

.957E^01 



< 02 ) 


fHCE I 


Yft ■ 1966 

DAY - 

20 MONTH 

■ 6 HOUR - 12 

MIN - 0 



;<riJ6 ■ 2440026. 

FI 0 ■ 100.00 FI 08 

- 100.00 

Cl - 0. 

00 


mLUTI'DE 

- 189.0 










( -SOUTH) 

LATITUDES 

< +NORTH) 



lON. 

-90. 

-80. 

-70. 

-60. 

-90, 

-40. 

-30. 

< -WEST) 








^♦ErtST) 








10. 

.636EY01 

.840EY01 

.8428+01 

.8448+01 

.8468+01 

.8488+01 

.8508+01 

20. 

.636E«0i 

.840EY01 

.6428*01 

.8458+01 

.8478+01 

.8498+01 

.6508+01 

30. 

.63QE»01 

.64 0E'»01 

.8438+01 

.6458+01 

.8478*01 

.8498+01 

.6508+01 

40. 

.838EY01 

.840EY01 

.8428+01 

.8458+01 

.8478+01 

.6498+01 

,8508*01 

90. 

.838£y01 

.040E'»01 

.8428+01 

.8448+01 

.6468+01 

.6488+01 

.6508+01 

60. 

.838E*01 

.840E401 

.8428+01 

.8448+01 

.8468+01 

.8478*01 

.8498*01 

70. 

.838E«0t 

.640EY01 

.6418+01 

.8438+01 

,8458+01 

,8468+01 

.8488+01 

60. 

.638E«0I 

.839EY01 

.0418+01 

.8428+01 

.8448+01 

.8458+01 

.8468+01 

»0. 

.838EY01 

.839EY01 

.6408+01 

,8418+01 

.8428+01 

.8438+01 

.8458+01 

1 00. 

.838EY01 

.836EY01 

.8398+01 

.8408+01 

.8418+01 

.8428+01 

.6438+01 

t 10. 

.e36E*01 

.838E+01 

.8368*01 

.6398+01 

.8398+01 

.6408+01 

.8418+01 

>20. 

.838EY01 

.638E*01 

.8388+01 

.8388+01 

.8388+01 

.8398+01 

.8398+01 

130. 

.838E*01 

.637EY01 

.8378+01 

.8378+01 

.6378+01 

.8378+01 

.6378+01 

•40. 

.838E*01 

.637E*01 

.8368+01 

.6368*01 

.8358+01 

.8358+01 

.8368+01 

t90. 

.81'<E*01 

.837E^01 

.8368+01 

.6358+01 

.8348+01 

.8348+01 

.8348+01 

<60. 

.-3>8E + 01 

.83£.E»01 

.6308+01 

.8348+01 

.8338+01 

.8338+01 

.8338+01 

170. 

.e38F*01 

.836E401 

.8338+01 

,8338+01 

, 8328+01 

.8328+01 

.8328+01 

180. 

.838E«01 

.e3£E«01 

.8348*01 

,8338+01 

.8328+01 

.8318+01 

.8318+01 

190. 

.esee^oi 

.836e«0l 

.8348+01 

.6338+01 

.8318+01 

.8318+01 

.8308+01 

200. 

.838EY01 

.83684-01 

.8348+01 

.8328+01 

,8318+01 

.8308+01 

.8308+01 

210. 

.838EY01 

.836E4-01 

.8348+01 

.8328+01 

.8318+01 

.8308*01 

.8308+01 

220. 

.838E.< 01 

.OSSE-t-OI 

.6348+01 

,8328+01 

.8318+01 

.8308+01 

.6308+01 

230. 

.836E+01 

.836E-*01 

.8348+01 

.8328+01 

.8318+01 

.8308+01 

.8308+01 

240. 

.eser+oi 

.636E-»0t 

.8348*01 

,8328+01 

. 8318*01 

. 8308+01 

.8308+01 

290. 

.838E«01 

.836E401 

.8348+01 

.6338+01 

.8318+01 

.8318+01 

.8308+01 

260. 

.83eE-Y01 

.836E401 

.8348+01 

.8338+01 

.8328+01 

.8318+01 

.8318+01 

270. 

.838CY01 

.836E401 

.8398+01 

.8338+01 

.8328+01 

.8328+01 

.8328+01 

260. 

.636EY01 

.8368-401 

.8358+01 

,8348+01 

,8338+01 

,8338+01 

.8338+01 

290. 

.e36E-»01 

.6378+01 

.8368+Oi 

.8358+01 

.8358+01 

.6358+01 

.6358+01 

JOO. 

.e38E.»01 

.8378+01 

.8378+01 

.8368+01 

.8368+01 

.6368*01 

.8378+01 

310. 

.838EY01 

.8388+01 

.8378+01 

,8388+01 

.8388+01 

. 8388 *01 

.8398+01 

320. 

.838E4^01 

.8368+01 

.8388+01 

.8398+01 

.6408+01 

.8408+01 

.8418+01 

330. 

.836E+01 

.8398+01 

.8398+01 

.8408+01 

.8418+01 

.8428+01 

.8438+01 

*40. 

.836E+01 

.8398+01 

.6408+01 

.8428+01 

.8438+01 

.6448+01 

.3458+01 

350. 

.e36E«01 

.83.T+01 

.8418+01 

.8438*01 

.8448+01 

.8468+01 

.8478+01 

360. 

.836EY01 

.84 - + 01 

.8428+01 

,8448+01 

.8498+01 

,8478+01 

.8498+01 


J 





r. 


w 



% 


<02> pace i 

•k - 1966 DAY - 20 MONTH - 6 HOUR - 12 MIN > 0 


'1JO - £ 

440026. 

FI 0 - 1 00. 00 FI 00 

- 100.00 

Cl - (.00 


iLTITOOE 

- 185.0 










(-SOUTH) 

LATITUDES 

(♦NORTH) 



■-ON. 

-20. 

-10. 

0. 

to. 

20. 

30. 

40. 

-WEST) 








♦CAST) 








10. 

.85IE«0I 

.852E-»0I 

.853E*0I 

.854E«0I 

.854E«0I 

.854EtOI 

.854E«0I 

SO, 

.652E+01 

.eS3E*0l 

.e54E+0l 

.854E*0I 

.855E*0I 

.855E*0I 

.854E+0I 

30. 

.e52E»0l 

.853E+0I 

.854E^0I 

.855E*0I 

.85PE*0I 

, eS5E*OI 

.854E«0I 

40. 

.8'.2E«0I 

.eSSE^OI 

.854E*0I 

.8S4E«0I 

.85PE*01 

.855E+0I 

.ee4E«oi 

50. 

,e51E*0l 

.852E*0I 

.8f.3E»0l 

,864E*0I 

.854E«0I 

.854E*0I 

.8S4E«0I 

60. 

.050E+OI 

.esiE^ot 

.e?2E*0l 

.853E'»0I 

.S53E»0I 

.853E+0I 

.853E*0I 

70. 

.649E«0I 

.8S0E-»0I 

.esiE^oi 

.eS2C«OI 

.eS2EtOI 

.8S2E40I 

.852E*0I 

90. 

.e47E*0l 

.648E*0I 

.849E*0I 

.850E«0I 

.85IE«0t 

.85(E*0I 

.85IE«0I 

90. 

.846E^0I 

.847E40I 

.848E+0I 

.848E*0I 

.84-9E«0l 

.849E+0I 

.849E+0I 

• PO. 

.644E«01 

.845Et^0l 

.846E^0I 

.846E«0I 

.847E+0I 

•848E+0I 

.84SE+0I 

■10. 

.942E«0I 

.843E«0I 

.SME^OI 

.844E«0I 

.845E«0I 

. 846E+0I 

.847E+0I 

£0. 

.840E»0I 

.84IE.»0I 

. .842E+0I 

.842E*0I 

.843E«0I 

. 844E*0I 

.845E+0I 

30. 

.838E»01 

.839E+0I 

.839E^0I 

.840E^0I 

.84IE«0I 

.842E+0I 

.843E+0I 

• 40. 

.836E«0t 

.e37E*0l 

.838E*0t 

.838E«0I 

.840E*UI 

.841E«0I 

.642E+yl 

■50. 

.635E+0I 

.835E«0I 

.836E«0I 

.837E«0I 

.838E«0I 

.839E«0I 

.84IE«0I 

•60. 

,833E*01 

,834E'»0I 

.834E»0I 

.835E+0I 

.837E>0I 

.838t*91 

.840E+0I 

■70. 

.832E+01 

.832E*0I 

.633E*0I 

.834E*0I 

.835E+0I 

. e37E*0l 

.838E«0I 

•80. 

.e3IE+0f 

.831E+0I 

.W32E+0I 

.833E40I 

.835E^0I 

.836E+0I 

. 838E*0I 

•90. 

.830E+01 

.83IE>0I 

.831E+0I 

.833E»0I 

.834E40I 

.836E 91 

.838E«0I 

£00. 

.630E*0t 

.830E'»0I 

.83IE«0I 

.832E«0I 

.834E«0I 

.835E+0I 

.837E»0I 

:io. 

.830E*0I 

.e3oe«oi 

.83IE»0I 

.832E«0I 

.833E+0I 

.835E+0I 

.837EtOI 

: 2 o. 

.830E«0t 

.830E+01 

.83IE^0t 

.832E.»0t 

.e33E^Ui 

.835E+0I 

.837E+0I 

£30. 

.e30E»0l 

.830E«0I 

.83IE+0I 

.832E«0I 

.833E+0I 

. 835E+0I 

.837E+0I 

£40. 

.03OEtOI 

.830E+0I 

.83IE«0I 

.832E«01 

.834E+0I 

.835E+0I 

.837E40I 

;so. 

.830E+0I 

.83IE*0I 

.esiE^oi 

.832E«0I 

.834E*0I 

.836E«0I 

.83&E+0I 

£60. 

.63IE«0I 

.OSIE^OI 

.832E+0I 

.833E^0I 

.834E+0I 

.esoE^oi 

.838E^0I 

£70. 

.832E»0I 

.832E«01 

.833E*0I 

.834E'»0I 

.835E«0I 

.837E»0I 

.eSSE'fOl 

:so. 

.833E'fOI 

.834E+01 

.835E4’0I 

.836E«0I 

.837E40I 

.e38E^OI 

.840E40I 

£80. 

,e35E*0l 

,836E*0I 

.836E+0I 

.837E*0I 

.839E+0I 

.840E*0I 

.84IE«0I 

300. 

.837E+0I 

.Asec+oi 

.839E^0I 

.840E«0I 

.84IE«0I 

.842EtOI 

.843EtOI 

*10. 

.e4OE+0t 

.840E+0I 

.84IE+0I 

.842E4.0I 

.843E*01 

.844E«0I 

.845E+0I 

320. 

.942E«0I 

.843EtOI 

.8ME«0t 

.849E'»0I 

.845E+0I 

.846E«0l 

.847E+0I 

330. 

.844E^0I 

.845E+0I 

.846E«0I 

.847E«0I 

.848E+0I 

.848E^0I 

.848E«0I 

*40. 

.847E^01 

.848E«0I 

.848E«0I 

.849E>0I 

.esoE^oi 

.850E«0I 

.asoE-^oi 

7S0. 

.648E«0t 

.850E*0I 

.650E«OI 

.89IE«CI 

.esiE^-oi 

.eSEE^OI 

.852E4’0I 

760. 

.esoE^ot 

.85IE«0t 

.852E«0I 

.eS3E'»0l 

.853E«0I 

.853E*0I 

.eS3E«OI 


3 


0 



< 02 > 


PmCE 3 


r > 



'ft - 1f>66 

OftV - 

20 MONTH 

■ 6 HOUR • 12 

MIH - 0 

i ' 

<HJD - 2440022. 

FI 0 - 1 00. 00 FI OB 

- 100.00 

Cl - 0 


-LTITUOE 

- 105.0 





) 




< -SOUTH) 

L<«TITUDES 

< 4H0I<TH> 


.ON. 

50. 

60. 

70. 

ao. 

90. 

: 

-WEST > 






1 

' ♦E^tST) 







10. 

.S53E+0» 

.852E40I 

.651E401 

.SSOEtOI 

,S48E40I 


20. 

.S54E*0t 

.eS3£*0l 

.85IE*0I 

.890C40I 

.848E40I 


30. 

.864E+0I 

.eS3E40l 

.OSIE40I 

.030E40I 

.846E40I 


40. 

.S54E+0I 

.653E40I 

.85IE+0I 

.850E40I 

.848E40I 


SO. 

.e53E»0l 

.B52E40I 

.65IE40I 

.850E40I 

.848E40I 

5 

60. 

.eS3E*01 

.052E40I 

.65IE40I 

.650E40I 

.848E40I 

1 

70. 

,e52E*0t 

.eSIEtOI 

.850E40I 

.849E40I 

.8480401 

4 

to. 

. esiE*oi 

.B50E40I 

.850E40I 

.849E40I 

. 8480401 


90. 

.850E+0I 

.049E40I 

.849E40I 

,049E+OI 

, 8430401 


> 00. 

.84eE*01 

.648E40I 

.849E40I 

.848E*0I 

.8480401 


■ 10. 

.e47E«OI 

.048E40I 

.048E*0I 

.848E40I 

.6480401 


‘20. 

,046E*Ot 

.947E*01 

.847E40I 

.848E40I 

.848E40I 


•30. 

.845E+0I 

.046E40I 

.847E40I 

.847E40I 

.8480*01 


'40. 

.e43E*0l 

.e49E40l 

.846E40I 

.047E*OI 

.8480401 

<r 

•50. 

,942E*0t 

.844E40I 

.84SE40I 

.847E40I 

.848E40I 

1 

<60. 

.842E+0J 

.843E40I 

845E40I 

.847E40I 

,e4eE40l 


'70. 

.84IE+0I 

.843E40I 

aosE^oi 

.847E40I 

.8480401 


ISO. 

.840E'f0l 

.842E40I 

.844E40I 

.846E40I 

.848E40I 


90. 

.O40E+0t 

.842E40I 

.844E+0I 

.S46E+0I 

.8480401 

1 

:oo. 

.e40E*01 

.842E40I 

.844E40I 

.8460401 

.8430401 


:to. 

.e-iOE-toi 

. 842E + 01 

.344E+0I 

.846E40I 

.8480401 

1 

:20, 

,840E*0I 

.842E+01 

.844E40I 

.846E40I 

.8480401 


:30. 

.840E«01 

, 042E+OI 

.844E40I 

.946E40I 

.8480401 


240. 

.840E+0I 

. 842E401 

.844E40I 

.846E40I 

.6480401 

1 

250. 

.04 0E'»OI 

.842E40I 

.844E40I 

.046E4OI 

.8480401 


260. 

.04OE«Ot 

.042E4OI 

.844E40I 

.846E40I 

.8460401 


270. 

.64IE40I 

.045E40I 

.845E40I 

.847E40I 

,8460401 


290. 

.842E40I 

.843E40I 

.84SE40I 

.847E40I 

.8480401 

f 

290. 

.843E+01 

.844E40I 

.946E*01 

.847E40I 

.8480401 

} 

200. 

,844E«0t 

.845E40I 

.84FE40I 

.847E40I 

.6480401 


:io. 

.846E+0I 

.646E401 

.847E+0I 

.848E40I 

.8430401 


720. 

.847E+0I 

.84eE40t 

.848E40I 

.848E401 

.8480401 


730, 

.O49E+0t 

.849E40I 

.849E40I 

.849E40I 

.8480401 

f 

740. 

.850E+01 

.850E40I 

.849E+0I 

.849E401 

.8480401 

1 

\ 

750. 

.8SIE40I 

.8SIE401 

.8S0E40I 

.849E40I 

.8480401 


760. 

.e52E40t 

.8S2E40I 

.8SIE40I 

.850E40I 

.8480401 


) 


I > 



> 


% 


<0> PAGE 


yR ■ t9ie 

DAY - 

20 nOMTH 

■ 6 HOUR > 12 

NIN - 0 



XNJD - 244002R. 

FIO > 100.00 FlOB 

- 100.00 

Ct - 0. 

00 


ALTITUDE » 

169.0 










< -SOUTH) 

LATITUDES 

< ♦NORTH) 



LON. 

-90. 

-to. 

-70. 

-60. 

-50. 

-40. 

-30. 

c-UEST) 








< ♦EAST) 








10. 

.983E«0t 

.934E»01 

,984E*0i 

.985E401 

.906E401 

.966E401 

.987E401 

20. 

.963E*01 

.904E*0I 

.904E401 

.905E*O1 

,9e6E+01 

.98<4E*01 

.987E40I 

30. 

.9O3E^0l 

.984E*0» 

.9&4E+0I 

.985E*0I 

.986E40I 

. 966E401 

.967E401 

40. 

.y&3E40t 

.9e4E40t 

.984E«0I 

.983E40I 

.sesE^oi 

986E+01 

.987E40I 

SO. 

,903EtOt 

.9S4E40I 

, 984E*0I 

.98SE«01 

.986E«0I 

.986E*0I 

967E40I 

SO. 

. 963E«0I 

.984E*0t 

.984E40I 

.985E40I 

.985E40I 

.966E401 

.966E401 

70. 

.983E*0I 

.983E^0» 

.984E40I 

.985E401 

.985E401 

.986E401 

.986E40I 

00. 

.9e3E*0l 

.9O3E^01 

.984E40I 

.984E401 

.988E401 

.985E401 

.986E*0I 

SO. 

.9e3E>0l 

.983E+0I 

.984E«0t 

.984E*01 

.904E401 

,985E*01 

.985E40I 

1 00. 

,903E+0t 

.983E+01 

.983E+01 

.984E401 

.934E401 

.984E40I 

.934E40I 

1 10. 

.9e3C+01 

.983E«0I 

. 963E40I 

.983E401 

.903E401 

.984E+01 

.984E401 

*20. 

.963Et0t 

.983E^01 

. S83E*0I 

.983E+01 

.983E401 

.983E401 

.983E40I 

130. 

.983E+0I 

.983E+01 

.983E40I 

.982E401 

.982E401 

.9S3E40I 

.983E40I 

140. 

.983E«0I 

.903E*OI 

.982E*0I 

.982E401 

.982E40I 

.982E^01 

.982E*0I 

ISO. 

.oesE^ot 

.982E»0» 

.962E+0I 

.982E401 

.982E+01 

.982E401 

.982E40I 

IfO. 

.983E+0I 

.982E«01 

.902E+ni 

.982E401 

.98IE40I 

.self 401 

.96IE40I 

170. 

.983E>0I 

.982E+0I 

.982E401 

.98ie*01 

.98IE*01 

. 98IE401 

96IE40I 

ISO. 

.903E^0t 

.902E+0I 

.982E+0I 

.981E401 

.98IE401 

.98IE40I 

.98IE40I 

190. 

.983E*01 

.9O2E+0I 

.982E+01 

.981E*0I 

.981E401 

.9SOE40I 

.980E40I 

200. 

.983E+01 

.982E+0I 

.982E+01 

.98IE*0I 

.98IE401 

.960E40I 

.960E40I 

2t0. 

.983E+0I 

,992e+01 

. 9C2E+0I 

.981E401 

. 98IE^0I 

.980E«0I 

.980E«01 

i20. 

.983E+0I 

.982E+01 

.982E40I 

.981E401 

.981E40I 

.9&0E401 

.930E+01 

230. 

.983E+0I 

.9e2E»OI 

.982E40I 

.981E401 

.98IEtOI 

.980E>0I 

.980E40I 

240. 

,983E*01 

.982E401 

.982E40I 

.981E401 

.96IE^01 

.980E40I 

.980E40I 

250. 

.983E+0I 

.982Et0l 

.982E40I 

.9B1E401 

.981E401 

.980E40I 

.980E40I 

200. 

.963E'»0I 

.SOOE^OI 

.982Ev 01 

.9B1E401 

.981E401 

.961E40I 

.960E40I 

270. 

,983E+0t 

.962E^0I 

.982E40I 

.981E401 

.98IE^01 

.98IE401 

.98IE40I 

200. 

.983E+01 

.982E*0t 

.982E40I 

.962E401 

.98IE40I 

.98IE40I 

.9BIE40I 

290. 

.983E^01 

.982EtOI 

.982E40I 

.982E401 

.982E40I 

-982E401 

.982E40I 

300. 

.903E*01 

.903E40t 

.982E-! 01 

.982E401 

.962E40I 

.S82E401 

.982E+01 

310. 

.983E+01 

.983E+01 

.983E4 01 

.983E401 

.983E401 

.983E401 

.963E40I 

320. 

.903E^01 

.OBoE^Ot 

.983E401 

.9B3E40I 

.983E401 

.984E40I 

.984E40I 

330. 

.983E«0t 

.983E40t 

.983E40I 

.984E401 

.984E401 

.984E401 

.985E40I 

340. 

.983E«01 

.983E40I 

.984E+0I 

.984E401 

.984E401 

.985E+0I 

.98SE40I 

3S0. 

.OOSE^OI 

.903E-40I 

.984E40I 

.984E401 

.985E«0I 

.985E40I 

.986E40I 

300. 

.983E401 

.983E40I 

.984E40I 

.969E40I 

.985E401 

.986E40I 

.9eeE40l 


j 

0 


I 


% 



0 


Yft > DAY - 20 nOHTH > « HOUR 

■ 2440020. MO - 100.00 FtOB - 

ALTITUOE ■ 105.0 


- 12 MIH ■ 

100.00 Cl ■ 0.00 


L(«TlTUliE6 <»HORTH> 

10. 20. 30. 


LON. 

( -UC6T> 
< ♦EAST ) 

10 . 

20 . 

30. 

40. 

SO. 

iO. 

70 , 

00 . 

90. 

ICO. 

III;. 

120 . 

130. 

140 

>90. 

ISO. 

170. 

100 . 

190. 

aoo. 

210 . 

120 . 

230. 

240. 

290. 

200 . 

270. 

200 . 

290. 

300. 

310. 

330. 

330. 

740, 

390. 

300. 


- 20 . 


,907E«01 
.9O7E»0l 
.967E*0I 
,*07E^01 
,907E*OI 
.967E»01 
,9eSE*01 
.996E*ai 
,98SE«0I 
.SeSE^OI 
. 984E«0I 
.984E«0I 
,9e3E*0l 
.»92E*01 
,902E«01 
.98IE+01 
.90IE*0I 
.90IE*OI 
.9e0E«0t 
.900E*0I 
.960E+0I 
.9S0E*0I 
.900E^0I 
.9O0E*0l 
.980E«01 
.96IE«0I 
,90IE«Ot 
.901E«01 
.9e£E«0t 
.983E^0t 
,9S3E*0I 
.984E*01 
.sesE^oi 
.96SE+0I 
,9eSE*OI 
.907E40I 


- 10 , 


.98?E*01 
.969E*01 
,9C<<=iEt01 
.9eSE«01 
.907E*01 
.987E*01 
,987E*01 
.9SSE»01 
.96EE^01 
.9BTE+0I 
.984E«0I 
, 964E+01 
.983E+01 
.secE^oi 

.902E«O1 
.98IE401 
.98IE«01 
.98IE< 01 
,980E«0I 
SBOE^OI 
.980E*0I 
.9S0E+01 
.980E^0! 
.seoE^oi 
.980E40I 
.98IE^0l 
.96tE«01 
.SeiEfOl 
.oecE'fOl 
.983E+0I 
.984E401 
.98SE»01 
.SSSE^OI 
.98SE^01 
.987E+01 
.987E401 


< -SOUTH) 

0 . 


, 9S9E+01 
, 989£t01 
. 9eSE*01 
.9&6E»01 
.988E+01 
.987E+01 
.987E*01 
.987E*0I 
.96SE^01 
,985E*0I 
. 9S5E«0I 
. 934E*0I 
,903E*O1 
, 983E«01 
.982E<01 
.982E401 
.93IE401 
.98IE«01 
.98IE^0I 
,9b1E+( : 
.980E+0I 
.960E+01 
•960E+0I 
,981E«0I 
.98tE«01 
.98IE«01 
.98tE»0l 
.982E40I 
.982Et01 
.983E401 
.964E401 
.9SSE401 
.98SE401 
.98SE»01 
.987E+01 
.9B7E401 


.988E*01 

.98SE*01 

.96&E^0I 

.986E*01 

.988E«01 

.9eeE*oi 

.987E«01 

.987E*0I 

.98SE*0I 

.98SE«01 

.98SE*01 

.9S4E*0I 

.904E*C1 

.9S3E«01 

.902E+O1 

.932E*01 

.982E+01 

.90IE40I 

.98IE401 

.981E*01 

.961E+01 

.98IE+01 

.901E+O1 

.98IE«01 

.981E401 

.98IE«01 

.982E»01 

.982E«01 

.983E«01 

.983E«01 

.964E+01 

.985E401 

.986E40I 

.986E401 

.987E'»01 

.988E401 


.980E*O1 
,9S6E^0I 
. 98eE«01 
.906E4O1 
.960E«01 
.988E«0I 
,987E»01 
,987E*01 
.98SE*01 
.98SE401 
,939E*01 
,98SE*0I 
,984E^01 
.9e3E*01 
, 983E*01 
.932E401 
,9B2E«0I 
,982E*01 
.932E«0I 
,SSIE+01 
.981E*01 
.98IE401 
.93IE+01 
,98IE«0I 
.98CE401 
.982E«01 
,982E«01 
.983E401 
.983E«01 
.984E«0I 
,935E>01 
.98SE401 
.98SE+01 
,987E*0I 
,98rE»01 
.906E4O1 


. 909E*O1 
. SSSEtOI 
. 90SE+OI 
.938£^0I 
,9S0E»O1 
.938e«01 
.987E*01 
.96?Et01 
.98SE40I 
.98SE40I 
. 935E^01 
.905E+O1 
. 934E«01 
.994E*01 
. 983E*01 
.9e3E*01 
.983E»01 
.98£E»0I 
.932E^0I 
.982E+01 
. 982E^01 
.9S2E+0I 
.962'E»0I 
. 982E^01 
.982E401 
. 98£E«01 
.963E'»01 
.983E40I 
.984E^01 
. 984E401 
.935E»UI 
.939E401 
.98SE^0I 
.987E»01 
.987E401 
.988E401 


40 . 


,988E*01 
.969E«01 
, 936E*0I 
, 93&E*01 
.90OE»OI 
.9eeE*oi 
,98?E*0I 
.987E*0I 
.987E^0I 
.98SE*01 
,93fEtOI 
. 9S9E^0t 
.939E^01 
.904E*OI 
.904E+O1 
.903E+O1 
.983E»01 
.903E*O1 
.983E*01 
.903E+O1 
.983E«01 
.9S3E+0I 
.963E«0I 
. 903E4O1 
.933E401 
.983E«0I 
.983E»01 
.934E401 
, 984E»01 
.985E>0I 
,939E«0I 
,90OE«O1 
.96SE^0I 
.987E»0I 
.987E40I 
.988E40I 


( 0 > 


PACE 3 


YR - 1466 

DAY ■ 

20 nONTH 

* S HOUR 

- 12 

niN ■ 0 

- 24400?t, 

MO - 100.00 MOO - 

t 00. 00 

Cl - 0 

ALTITUDE 

- 105.0 








< -SOUTH) LATITUDES 

<*MORTH> 

cON. 

SO. 

00. 

70. 

■ 0. 

90. 

' -WEST) 






( ♦EAST) 






10. 

.soeE^oi 

.9O7E*01 

.907E*01 

.S07E40I 

9&6E*0I 

20. 

.908E^0I 

.986E*0« 

.987E*0t 

.907E^0I 

.90SE^OI 

30. 

.9SeE»OI 

.9B8E*01 

.907E*OI 

.967E^0I 

. fOfE^OI 

40. 

.986E+0I 

.908E4OI 

,967E*0t 

.967E^01 

.9C<eE»0l 

SO. 

,9eeE*o» 

.907E*0I 

.907C#0I 

.987E^01 

.9eSE*0« 

iO. 

.980E*Ot 

.907E^0I 

.9O7E^0l 

.Se7E40l 

.9esE^0l 

?0. 

.9O7E^0l 

.907e*0t 

.997C40I 

.9e7e40t 

.98SE40I 

00. 

.907E»0I 

.907E«0I 

.907E*0I 

.96SE40I 

. sesE^oi 

SO. 

.9erE«oi 

.9O7E401 

.98SE40I 

.986E40I 

.9BfE*OI 

100. 

,9eSE«0l 

.98SE401 

.98SE*0I 

.98SE40I 

.98SE*01 

1 10. 

,9SSC»0I 

.9»6E*0I 

.96SE*0I 

.SSSE^OI 

. 906E*0I 

'20. 

,9S5E*0I 

.90SE*O1 

.96SE«0I 

.96SE#0I 

.SBSE^OI 

130. 

.sesEtOi 

.98SE^0t 

.:S6E*0t 

.98SE^0t 

,936Et01 

'40. 

.sesE^oi 

.9esc*ot 

.9«SC*01 

sesE^oi 

.99SE^0» 

iSf.. 

,904E^01 

.9eSE«0t 

.905E+OI 

.sesE^oi 

.986E*0I 

•so. 

,984E^0t 

.985E>0I 

.SdSE^OI 

.96SE40I 

.93SE*0I 

170. 

,9O4E«0l 

.984E^01 

.SOSEtOI 

.96SE40t 

.SSSE^OI 

too. 

.9O4E^0l 

.984E^0I 

.989E^0I 

.98SE40« 

.90SE^Ot 

190. 

.964E«01 

.984E^0I 

.935E*0I 

SeSEtOI 

.98SE^0I 

200. 

.9S3E«01 

.984E^0t 

.9»5E^0I 

1 SaSE^OI 

,9&fE*0« 

:io. 

. 963E^0t 

.964E^0I 

.905E»0I 

.SdSE^OI 

.93SE+01 

120. 

,9S3EiOI 

.984E40I 

.985E^0I 

.SSSE^Ot 

.9S6E+01 

£30. 

.903E^OI 

.984E+01 

.9ei8E*OI 

.98SE401 

.966E*01 

£40. 

.9S3E^01 

.984E^01 

.9'OSE^OI 

98SE40I 

.sesE^oi 

£90. 

.983E^0I 

.984E40I 

sasE^oi 

.93SE40I 

.986E^0I 

£S0. 

.904E»OI 

.904E*OI 

.SOSE^OI 

iSOSE^OI 

.9SSE*0I 

270. 

.984E40I 

.904E40I 

.985E40I 

98SE40I 

.98SE40I 

£80. 

,984E^01 

.989E40I 

.98SE40I 

98SE40I 

.986E401 

290. 

,904E*01 

.905E*OI 

.OOSE^OI 

.9O6E401 

.98SE*0t 

TOO. 

.SeSE^OI 

.905E«OI 

.oesE^oi 

i986E«0t 

.98SE40I 

:I0. 

.sesE^oi 

.sesE^ot 

.986E^0I 

98SE401 

936E^01 

?20. 

, 906E^O'( 

.SOSE^OI 

.98SE*0I 

iSeSE^Ot 

.90SE«0I 

730. 

.90SE<OI 

.98SE^0t 

.SOSE^Ot 

OOSEtOI 

.98SE401 

740. 

.9S7E+01 

.907E«01 

.987E*0I 

i98SE»0t 

.9SSE+0I 

TSO. 

'.907E*OI 

.9O7E«0t 

.907E«Ot 

.907E40I 

.oesE^ot 

3S0. 

.907E40I 

.907E«01 

.987E+0I 

987E^01 

. sesE^oi 


J 

0 


) 


» 


« 


I 

u 


fi 

! 

I 


< <• > PACE I 


A 

rl> > tvet 

(>AV ■ 

20 t107iTH 

> « HOUR > 12 

HIH ■ 0 



1 

^tlJO ■ &44 00S*. 

MO - too. 

00 MOR 

■ 109,00 

Cl ■ 0. 

00 



SLTITUOC 

- I9S.0 







) 




< -OOUTM) 

LATITUDES 

<«NORTH> 




ION. 

-90. 

-90. 

-70. 

-40. 

-80. 

-40. 

-30. 

\ 

( -WEST) 









< ♦E(*ST ) 









to. 

.93IE«0t 

.634E«0t 

.636E*0t 

.439E«0I 

.442E»0t 

.444E»0I 

.444E*0I 


30. 

.43ie*0t 

.«34E«0I 

.«37E*0I 

,440e*01 

.44Se«0l 

.445E«0I 

.447E*0I 


30. 

.63IE*0I 

.434C«0t 

.937E*0I 

.<40C*0I 

.«43C*0I 

.44SE«0I 

.440E«OI 


40. 

.^3IE«0I 

.634C*0I 

.637E*0I 

.440E40I 

.442E«0I 

.44SE*0I 

.447E*0I 


00. 

.t31EtOI 

.634E»0t 

.«3«E*0I 

.439C«0I 

.«42E*0I 

.444E*0I 

.44.*’E*0I 


00. 

.eSIE^Ot 

.933E*0I 

.63«E«0I 

.436E*0I 

.44tE*0l 

.643E«0I 

.44SE»0I 


?0. 

.63tE*OI 

.933E*0I 

.030E*OI 

.437E«0t 

.440E«OI 

.642E»0I 

.444C40I 

'i 

« 

00. 

.«3IE«0I 

,032E«OI 

.034C«0I 

.«36E*0I 

.«3SE«0I 

.«40E«0I 

.443E*0I 


90. 

.«.3IE*0I 

.632E*0I 

.633E«0I 

.439E«0I 

.43OE«0l 

.430E«0I 

.440E*0I 


'00. 

.e3(E«01 

.03IE«01 

.632E«0I 

.633E«0I 

.635E«0I 

.438E«0I 

.43?E*0I 


t to. 

.»3IE*0t 

.«3IE*0I 

.93IE*0I 

.63£E*0I 

.O33E*0l 

.634E*0t 

.43SE*0I 


<20. 

.63IE«0I 

.O30E^0l 

.O30E*0l 

.«30E«0I 

.43IE«0I 

.«32E*0I 

.432E«0I 


30. 

.«^3IEtOI 

.030E«OI 

.029E*0I 

.<)29E»0t 

.629C*0I 

.429E>0t 

.430E«0I 


■40. 

.63IE«0I 

.629C«0I 

.620E*0I 

.«2«E*0I 

.627E*0I 

.427E*0I 

.438E«0I 


•90. 

.63tE«OI 

.«29E*0I 

.629E*0I 

.420Et0t 

.«26E*0I 

.424E«0I 

.42«E*0I 

* ' 

■«o. 

.63tE«OI 

.629E'»0t 

.62/E^OI 

.426E*0t 

.425E«0t 

.424E«0I 

.424E«0I 


170. 

.631E*0I 

.62e£<’0l 

.92CE«0I 

.439E«0I 

.«23E«0I 

.«23E*0I 

.423E«0I 

1 

•CO. 

.63IE«0I 

.«2eE+0l 

.62<E«0I 

.424E«0I 

.«23E*0I 

.422E«0I 

.42IE«0I 


■90. 

.93IE«0t 

.62eE*0l 

.626E*0I 

.424E»0I 

.622E»0I 

.42IE«0I 

.42tE«0l 


:9o. 

.63IE«0I 

.O28E^0l 

.62CE«0I 

.623E*0I 

.622E«0I 

.63tE«OI 

.420E*0I 

n 

G 

:i 0. 

.63lE«0t 

.626E401 

.62!£E*0I 

.4£'3E*0t 

.62£-E«01 

.42IE«0I 

.42CE«0I 

1 

:20. 

.631E«0t 

.O£'8E^0l 

.629E«0I 

.423E«0I 

.e22E*0t 

,42tEf 01 

.620E«0t 

i ■ 

:3o. 

.03IE«OI 

.6?8E*0I 

.02SE*OI 

.623E«0I 

.623E«0I 

.42IE«0I 

.620E«0I 


:40. 

.03IE«Ot 

.(26E*0t 

.926E«0I 

.423E*01 

.422E«0t 

.«2IE*0I 

.020E«OI 


£90. 

.63tE«0t 

.626E40I 

.S26E*01 

.e24E401 

.422E40I 

.42IE40I 

.42IE40I 


£«0. 

.«3IE«0I 

.029E«0I 

.626E*0I 

,424E«0I 

.623E«0I 

.422E*0I 

.42IC*0I 


£70. 

.63IE«0I 

.«2eC40l 

.026E40I 

.425E40I 

.423E401 

.423E«0I 

.423E»0I 


£90. 

.63tE*0t 

.029E40I 

.02/E40I 

.42«E40t 

.42SE40I 

.424E40I 

.624E40I 


£90. 

.63lE«0t 

.629E40I 

.02eE«OI 

.427E40I 

.426E40I 

.<2<E«0I 

.«27E*0I 

r 

300. 

.«.3tE*OI 

.930E«0t 

.929E*0I 

.430E«OI 

.42eEtOI 

.629E40I 

.429E«0I 


310. 

.O31E*0t 

.630E401 

.630E«0I 

.630E40I 

.63IE«0I 

.43IE*0I 

.432E40I 

1 . 

720. 

.<S3IE + 0I 

.OSIE^Ot 

.63tE«OI 

.(>32E«0I 

.OSSE^OI 

.634E+0I 

.439C«0I 


730. 

.«»3IE«0I 

.O33E«0l 

.033E40t 

.434E«0I 

.43SE40I 

.437E«0I 

.43CE40I 


*40. 

.«3tE«0t 

.632E40I 

.034E«01 

,436E*0t 

.637E+01 

.639E40t 

.64IE40I 

1 *■ 

790. 

.631E«0t 

.933E>0I 

.S3SC'»0I 

.937C40I 

.439C40I 

.44tC40t 

.443E«0I 

1 , 

7e0. 

.S3IE«0I 

.933E401 

.936E40I 

.430E40t 

.64tE401 

.643E40I 

.445E«0I 


J 






> 


<*> 


PACE a 


J 

a 

) 



DAY - 

a* HONTN 

• 0 HOUR > la 1 

niN > 0 



MNJO > 244002*. 

no * 100.00 no* 

• 100.00 

61 ■ 0. 

00 


altitude 

> 1 * 8.0 










< -SOUTH) 

LATITUDE* 

< *N0RTH> 



UON. 

- 20 . 

-I*. 

*. 

1*. 

20. 

30. 

40. 

<-weoT> 








<«EA«T> 








10. 

.O48E*0l 

.OSOE«OI 

.09tE*0« 

.O52E*0l 

.052E*0I 

.0S2E*0I 

.OS2E*OI 

20. 

.049E«0t 

.09IC«Ot 

.092E*0I 

.093E«OI 

.O93E*0l 

.093C«OI 

.092E«0I 

30. 

.049E*0I 

.09IE«0I 

.0S2E*0I 

.093E«OI 

.093E*0I 

.0931*01 

.093E«0I 

40. 

.049E*0I 

.09)C*0I 

.0S2E*0I 

.0S3E*0I 

.093E«0« 

.O93E*0l 

.0S3E*0I 

90. 

.O4OE*0l 

.09oe*oi 

.09IE*0I 

.692E*0I 

.092E*OI 

.OS2E*OI 

092E«0I 

00. 

.O47E*0t 

.049C«0I 

.O90E*0l 

.09IC«0I 

.OSIE^OI 

.O9IE*0t 

.09IE*0I 

70 . 

.040E*OI 

.047E*0I 

.040E«OI 

.O49E«0l 

.049E«OI 

.090E*OI 

.OSOEtOI 

*0. 

.643C*0t 

.049C«0I 

.046E«OI 

.047C«0t 

.040E*0I 

.04*E*OI 

.04*E*0I 

90. 

,«4IE«0I 

.043E«0I 

.0-ME«0l 

.04SE*0I 

.e45E*OI 

.040E*OI 

.046E*01 

<00. 

.O39E*0t 

.040E«0I 

.04tE«0l 

.04£E«OI 

.043E»OI 

.044E*0I 

044E*0I 

MO. 

.C3«E*0I 

.*37C«0I 

.03*E«0l 

.039£«0l 

.O40C*0l 

.04IE*0I 

.042E*OI 

*20. 

.033E*0I 

.034E«0I 

.070E*0I 

.037E*0I 

.03OE«0l 

.039C*0I 

.040C*0I 

'30. 

,03IE*OI 

.032E«0I 

.O33E«0l 

.034E«0I 

.O3SE*0l 

.037E*0I 

030E*0( 

140. 

.02»E*0t 

.O29C*0t 

.O30E*OI 

.O3IE*0l 

O33E«0l 

.039E*OI 

.030E*OI 

ISO. 

.020E*0I 

.027E«0I 

.028E«0I 

.f29E*0l 

.O3IE«0l 

.033E*OI 

.O35E*0l 

too. 

.024E«0t 

.025E«0I 

.020E«Ot 

.027E«01 

.O29E«0l 

.031E*OI 

.033E*0» 

170. 

.O23C*0l 

.O23C*0l 

.024E*0I 

.020E*OI 

.02i'E*OI 

.O30E*0t 

.O32E*0l 

1*0. 

.02«E*Ot 

.022C«0I 

.023E«0I 

.024C*Ot 

.020E*OI 

.029C*I<I 

.O3IE*0l 

190. 

.(?2IE»0I 

.02IE«0I 

.022E«0I 

.623E«0t 

.025E«OI 

.02«E*Ot 

.t30E*0l 

;- oo . 

. 020 E * 0 t 

.OZlE^Ot 

.022E*0I 

.O23E*0l 

. 025 E«Ot 

.027E*Ot 

.03oe*0t 

210. 

.020E401 

.020E«0t 

.021E«OI 

.623E«0I 

.029E«0t 

.027E*OI 

.O3OE*0l 

720. 


.020E«Ot 

.62tE*0t 

.O?'»E»0l 

.025E«0I 

.O27E*0l 

.030E*OI 

230. 

.420e«0l 

.O20E*OI 

.02IE«Oi 

.O23E*0l 

.629E*0t 

.027E*OI 

.O30E*0l 

240. 

.020E*OI 

.020C«Ot 

.02IE*0t 

.023C«0I 

.029E*Ot 

.027E*Ot 

.O30E*0l 

2S0. 

.O2IE«0l 

.02IE«0I 

.022E*OI 

.023E«OI 

.O29E«0l 

.02*E*Ot 

.030E*OI 

200. 

.02IC-»Ot 

.022C*0I 

.023E«0I 

.024E«OI 

.020E»OI 

.02*e*0l 

.O3IE*0l 

270. 

.O23E«0l 

.023F«OI 

.024E«0I 

.020E*0I 

.O27E»0t 

.030E*01 

.*32E*0I 

2*0. 

.O25E*0l 

.025E40t 

.O20E«0t 

.O26E«0l 

029E40I 

.031E40I 

.033E40I 

290. 

.O27E«0l 

.02»E«0I 

.029E«Ot 

.030E«0t 

.O32Et0t 

.O33E*0l 

.039E*OI 

300. 

.«30E*0t 

.03tE*01 

.032E«0I 

.033C«0I 

.034E^0t 

.030E*OI 

.037E»0! 

*10. 

.633E*0I 

.034E«0I 

.038E«0I 

.O3OE«0l 

.037E40I 

.039E*0« 

.040E*OI 

320. 

.630E«OI 

.037E«0I 

.039E*OI 

.040e«0l 

.64IE*01 

.042E*0t 

.O42E*0l 

330. 

.O39E«0l 

.04tE«0l 

.042E40I 

.043E«0t 

.044E401 

.044E*bl 

.O49E*0l 

*40. 

.O42E*0t 

.044E40I 

.045E40I 

.O46C«0t 

.O40E*0t 

.047E*OI 

.047E40I 

390. 

.049E«OI 

.040E*0t 

.O47E«0l 

.04*E*0I 

.049E«OI 

.049E*0I 

.049E*OI 

300. 

.047E«Ot 

.04*E40t 

.049E«OI 

.O90E«0t 

.O9)E«0l 

.O5IE40I 

.091E*OI 



« 


<A> P^CE 3 


VK - 1968 

DAY • 

20 MONTH 

- 6 HOUR - 12 1 

MIN - 0 

XMJD ” 244002S. 

F10 - 100.00 6100 

- 100.00 

Cl - 0 

OLTITUDE 

- les.o 








< -SOUTH) 

LAT1TU066 

<*NOftTH> 

LON. 

SO. 

60. 

70. 

OO. 

90. 

<-«EST) 






< ♦E86T> 






10. 

.65tE*0t 

.6506*01 

.6486*01 

.6476*01 

.6446*01 

20. 

.6526*01 

.6506*01 

.6496*01 

.6476*01 

.6446*01 

30. 

.652E*0t 

.6516*01 

.6496*01 

.6476*01 

.6446*01 

40. 

.652E*01 

.6506*01 

.6496*01 

.6476*01 

.6446*01 

SO. 

.65IE*0I 

.6506*01 

.6486*01 

.6476*01 

.6446*01 

«0. 

.650E*0I 

.6496*01 

.6486*01 

.6466*01 

.6446*01 

70. 

.649E+0I 

.6486*01 

.6476*01 

.6466*01 

.6446*01 

00. 

.646E*0I 

.6476*01 

.6476*01 

.6466*01 

.6446*01 

90. 

.646E*0t 

.6466*01 

.6466*01 

.6456*01 

.6446*01 

too. 

645E+01 

.6456*01 

.6456*01 

.6456*01 

.6446*01 

MO. 

.643E*OI 

.6446*01 

.6446*01 

.6446*01 

.6446*01 

120. 

.64tE*0l 

.6426*01 

.6436*01 

.6446*01 

.6446*01 

130. 

.640E*0I 

.6416*01 

.6426*01 

.6436*01 

.6446*01 

140. 

.636E*0I 

.6406*01 

.6416*01 

.6436*01 

.6446*01 

ISO. 

.637E*0t 

.6396*01 

.6416*01 

.6436*01 

.6446*01 

160. 

.635E+0I 

.6386*01 

.6406*01 

.6426*01 

.6446*01 

170. 

.635E*0I 

.6376*01 

.6406*01 

.6426*01 

.6446*01 

too. 

.634E*0I 

.6376*01 

.6396*01 

.6426*01 

.6446*01 

190. 

.633E+0I 

.6366*01 

.6396*01 

.6426*01 

.6446*01 

200. 

.633E+0I 

.6366*01 

.6396*01 

.6426*01 

.6446*01 

210. 

.633E*01 

.6366*01 

.6396*01 

.6426*01 

.6446*01 

220. 

.6336*01 

.6366*01 

.6396*01 

.6426*01 

.6446*01 

230. 

.633E*0I 

.6366*01 

.6396*01 

.6426*01 

.6446*01 

240. 

.633E*0I 

.6366*01 

.6396*01 

.6426*01 

.6446*01 

2S0. 

.633E*01 

.6366*01 

.6396*01 

.6426*01 

.6446*01 

260. 

.634E*01 

.6376*01 

,639E*0I 

.6426*01 

.6446*01 

270. 

.63SE*0I 

.6376*01 

.6406*01 

.6426*01 

.6446*01 

280. 

.6366*01 

.6386*01 

.6406*01 

.6426*01 

.6446*01 

290. 

.6376*01 

.6396*01 

.6416*01 

.6436*01 

.6446*01 

300. 

.6396*01 

.6416*01 

.6426*01 

.6436*01 

.6446*01 

310. 

.6416*01 

.6426*01 

.6436*01 

.6446*01 

.6446*01 

320. 

.643E*01 

.6446*01 

.6446*01 

.6446*01 

.6446*01 

330. 

.6456*01 

.6456*01 

.6456*01 

.6456*01 

.6446*01 

340. 

.6476*01 

.6476*01 

.6466*01 

.6456*01 

.6446*01 

3SO. 

.649E*0I 

.6486*01 

.6476*01 

.6466*01 

.6446*01 

360. 

.6506*01 

.6496*01 

.6486*01 

.6466*01 

.6446*01 






ik - 19£d DAY - 20 nOHTH > 6 HOUR - 12 MIH > 0 

^tlJD • 344002S. FIO - 100.00 FtOB • 100.00 Cl - 0.00 

hltitude - les.o 


-90. 


■eo. 


-SOUTH> LATITUDES <«HORTH> 
-70. -00. -50. 


-40. 


LON. 

( -WEST) 
< ♦EAST > 

10 . 

20 . 

30. 

40. 

50. 

SO. 

70. 

60. 

I CO. 
MO. 
120. 
130. 
140. 
150. 
ISO. 
170. 
190. 
190. 

:oo. 

:i 0. 

:?o. 

230. 

240. 

250. 

260. 

270. 

260. 

290. 

300. 

' 10 . 

720. 

330. 

*40. 

750. 

*60. 


.71 0E*01 
.71 OE+01 
. 71 OE^OI 
.710E+01 
.710E+01 
.710E*01 
.710E+01 
. 71 OE + 01 
. 71 OE+01 
.710E+01 
.71 oe*oi 
.7I0E+01 
. 71 OE+OI 
. 71 OE+01 
.710E401 
.710E401 
.710E+01 
.710E401 
. 71 OE+01 
■7I0E401 
.7I0E+01 
.710E+01 
.71 OE+01 
.7I0E+01 
.710E+01 
.710E«01 
.710E401 
.71 0E401 
.7l0Et01 
.71 OE+01 
.710E+01 
.7I0E«0I 
.7t0E^01 
.71 OE+01 
.7IOE+01 
.710E+01 


.710E401 
.71 0E*01 
.71 0E*01 
.710E+01 
.710E401 
.71 0E»O1 
.710E+01 
.71 0"»01 
.710C401 
.710E401 
. 71 OE+01 
.71 0E»01 
.71 OE+01 
.710E+01 
. 71 0E401 
.710E401 
. 71 OE+01 
.710E+01 
.710E+01 
.71 OE+01 
.7I0E401 
.71 OE+01 
.71 0E»01 
.71 OE+01 
.710E401 
.7I0E401 
.710E«01 
.710E401 
.7I0E*01 
.710E«01 
.71 OE+01 
. 71 OE+01 
.710E401 
.710E+01 
.71 0E40I 
.710E+01 


.71 0E*01 
.71 0E*01 
. 71 OE«OI 
.710E*01 
.710E401 
.71 0E*01 
.710E401 
.71 OE+01 
.71 OE+01 
71 0E»01 
.71 OE+OI 
. 71 0E*01 
.7I0E+01 
.71 OE^OI 
.710E+01 
.710E+01 
.710E*01 
.710E»01 
.71 OE+01 
.71 OE+01 
.71 0E*01 
.71 OE+01 
.71 OE+01 
.71 OE^Ol 
.71 0E+O1 
.71 OE+01 
.71 OE+01 
.71 OE+Ol 
. 71 OE^OI 
.710E+01 
.71 OE+01 
.710E+01 
.71 OE+01 
.710E+01 
.710E+01 
.710E401 


.710E401 
. 71 0E«01 
.710E«0I 
.710E«01 
.710E*01 
.710E+01 
.710E401 
.710E*01 
.710E+01 
,710E*01 
.71 OE*OI 
.710E+01 
.710E401 
.71 OE+01 
.710E*01 
.710F401 
.710E+01 
.710E+01 
.7I0E+01 
.71 0E«O1 
.710E+01 
.71 OE+01 
.710E*01 
.71 OE+01 
.710E401 
.710E*01 
. 71 OE+01 
.710E+01 
.71 OE+01 
.710E+01 
710E+01 
, '1 OE + 01 
.710E+01 
.710E+01 
.710E+01 
.710E+01 


.709E+01 
. 709E+OI 
. 709E + 01 
.709E+01 
.709E^01 
.709E+01 
.710E+01 
.710E1C1 
.710E+01 
.71 OE+01 
. 71 OE+01 
.71 OE^OI 
.710E+01 
.710E«01 
.710E«01 
.71 OE+01 
.710E+01 
.710E+01 
.710E+01 
.71 OE+01 
.710E+01 
.710E+01 
.7I0E+01 
,710E*01 
.710E+01 
.71 OE+01 
.71 OE+01 
.710E+01 
. 71 OE+01 
,71 OE+01 
.710E>»11 
.71 OE+01 
.71 OE+01 
.710E+01 
.710E+01 
.709E+01 


.709E+01 
. 709E + 01 
. 709E + 01 
,709E*0\ 
•709E-01 
.709E+01 
.709E+01 
.709E+01 
.71 OE+01 
.71 OE+01 
.71 OE+01 
. 71 OE+01 
, 71 OE+01 
.71 OE+01 
.71 OE+01 
.710E+01 
,71 OE+01 
.710E+01 
• 71 OE + 01 
. 71 OE+01 
71 OE+01 
.710E+01 
.71 OE+01 
. 71 OE+01 
.710E+01 
.71 OE+01 
.71 OE+01 
.71 OE+01 
,71 OE+01 
.710E+01 
.71 OE+01 
.710E+01 
.710E+01 
.71 OE+01 
.709E+01 
.709E+01 


-30. 


.709E+01 
.709E+01 
. 709E+01 
.709E+01 
.709E+01 
.709E+01 
.709E+01 
.709E+01 
.71 OE+01 
.71 OE+01 
.710E+01 
.71 OE+OI 
.710E+01 
.71 OE+01 
.71 OE+01 
.71 OE+01 
.710E+01 
.71 OE+OI 
.71 OE+OI 
, 71 OE+OI 
.71 OE+OI 
.71 OE+OI 
. 71 OE+OI 
.71 OE+OI 
.7I0E+0I 
.71 OE+OI 
.7I0E+0I 
,71 OE+OI 
, 71 OE+OI 
.7I0E+01 
.71 OE+OI 
.71 OE+OI 
,71 OE+OI 
.709E+0I 
.709E+01 
.709E+0I 



I 


1 


(he;> 


PACE 2 


> 

i-p • 1966 

DAY ■ i 

20 MONTH 

- 6 HOUR - 12 nIH - 0 



hMJD ■ e4400C'e. 

FI 0 - 100.00 FI OB 

• 100.00 

Cl - 0. 

00 



mLTITUOE • 

165.0 


< -SOUTH) 

LATITUDES 

< +NORTH> 



) 

LON. 
^-IJEST) 
< ♦ErtST > 

-20. 

-10. 

0. 

10. 

20. 

30. 

40. 


10. 

.709E+C1 

.709E+01 

.709F+OI 

.709E+0I 

.709E+0I 

.709F. + 0I 

.709E+0I 


2:0. 

. 709E+0I 

.705E+01 

.709E+0I 

.709E+OI 

.709E+0I 

.709E+0I 

.709E+0I 

1 

30. 

. 709E+01 

. 709E+0I 

. 709E + 0I 

.709E+0I 

. 7C9E+0I 

. 709E+0I 

. 709E+0I 


40. 

. 709E+0I 

, 709E+01 

. 709E + 0I 

.709E+0I 

.709E+0I 

.709E+0I 

.709E+0I 

' 

50. 

. 709E»0t 

. 709E+01 

. 709E + 0I 

. 709E+0I 

. 709E+0I 

. 709E+OI 

. 709E+0I 


60. 

. 709E+0I 

.709E+01 

. 709E + 0I 

.709E+0I 

, 709E + 0I 

. 709E+0I 

.709E+OI 


70. 

.709E+01 

.709E+01 

, 709E+ 01 

.709E+0I 

•709E+01 

. 709E+0I 

.709E+0I 


eo. 

. 709E*01 

. 709E+01 

, 709E+0I 

. 709E+0I 

. 709E + 0I 

. 709E+0I 

. 709E+0I 

90. 

. 709E»01 

. 709E+01 

.709E+0I 

. 709E + 01 

. 709E+OI 

. 709E+0I 

. 709E+0I 


) 00. 

.71 OE*OI 

.710E+01 

.709E+OI 

.709E+0I 

,709r+0l 

.7C9E+0I 

.709E+0I 


no. 

, 71 OE*OI 

.71 OE+OI 

. 71 OE + OI 

. 71 OE+OI 

, 709E + 0I 

. 709E+ 01 

. 709E+0I 


!20. 

. 71 OE+OI 

.7I0E+0I 

. 71 OE+OI 

. 71 OE+OI 

. 71 OE+OI 

. 71 OE+OI 

. 709E+0I 


130. 

. 71 OE+01 

.7I0E+0I 

.71 OE+OI 

.7IOE+OI 

.7I0E+0I 

. 71 OE+OI 

. 71 OE+OI 


140. 

. 71 OE+OI 

.71 OE+OI 

.71 OE+OI 

.71 OE+OI 

. 71 OE+OI 

, 71 OE+OI 

. 71 OE+OI 


!50. 

, 71 OE+OI 

.71 OE+OI 

.71 OE+OI 

,71 OE+OI 

.7I0E+0I 

.7I0E+0I 

.71 OE+OI 

■ 

160. 

. 71 OE+01 

,71 OE+OI 

. 71 OE + OI 

,71 OE+OI 

. 71 OE+OI 

.710E+0I 

. 71 OE+OI 


1 70. 

. 71 OE+OI 

.71 OE+OI 

. 71 OE + OI 

. 71 OE+OI 

, 71 OE+OI 

. 71 OE+OI 

.71 OE+OI 

; 

190. 

.7106+01 

.71 OE+OI 

.71 OE+OI 

.71 OE+OI 

.71 OE+OI 

.71 OE+OI 

.71 OE+OI 


190. 

.710E+01 

.71 OE+OI 

,71 OE+OI 

.7I0E+0I 

. 71 OE+OI 

. 71 OE+OI 

.71 OE+OI 


200. 

. 71 OE+OI 

, 71 OE+OI 

.71 OE+OI 

.71 OE+OI 

, 71 OE+OI 

. 71 OL+OI 

.71 OE+OI 


210. 

. 71 OE+OI 

. 71 OE+OI 

. 71 OE+OI 

.7IOE+OI 

.71 OE+OI 

. 71 OE+OI 

. 71 OE+OI 

i 

220. 

.710E+01 

.71 OE+OI 

.71 OE+OI 

.71 OE+OI 

.71 OE+OI 

.71 OE+OI 

.71 OE+OI 

i 

230. 

. 71 OE+OI 

. 71 OE+OI 

.71 OE+OI 

. 71 OE+OI 

. 71 OE+OI 

. 71 OE+OI 

.71 OE+OI 


240. 

. 71 OE+OI 

. 71 OE+OI 

. 71 OE + OI 

.7I0E+0I 

. 71 OE+OI 

. 71 OE+OI 

. 71 OE+OI 


250. 

. 71 OE+OI 

.7I0E+0I 

.7I0E+0I 

.71 OE+OI 

.7I0E+0I 

.71 OE+OI 

.7I0E+0I 

3 

260. 

.71 OE+OI 

.71 OE+OI 

.71 OE+OI 

.71 OE+OI 

. 71 OE+OI 

.71 OE+OI 

.7I0E+0I 


270. 

. 71 OE+OI 

.7I0E+01 

, 71 OE + OI 

.7I0E+0I 

. 71 OE+OI 

.71 OE+OI 

.7I0E+0I 

* 

2S0. 

.7I0E+0I 

.71 OE+OI 

.71 OE+OI 

.7I0E+0I 

.7I0E+01 

.7I0E+0I 

. 71 OE+OI 


290. 

, 71 OE+OI 

.71 OE+OI 

.71 OE+OI 

.•71 OE+OI 

.7I0E+0I 

.7I0E+0I 

.71 OE+OI 

I ‘ 

300. 

.71 OE+OI 

.71 OE+OI 

.71 OE+OI 

.710E+0I 

.71 OE+OI 

.71 OE+OI 

.7I0E+0I 


310. 

.71 OE+OI 

.7I0E+0I 

.71 OE+OI 

.71 OE+OI 

.7I0E+0I 

.7I0E+0I 

.7I0E«-0I 

« • 

320. 

.71 OE+Ot 

.71 OE+OI 

. 71 OE + OI 

. 71 OE+OI 

. 709E+01 

. 709E+0I 

. 709E+0I 


330. 

. 71 OE+OI 

. 709E+0I 

■709E+0I 

.709E+01 

. 709E+OI 

. 709E+0I 

. 709i; + 0l 

? J 

1 

340. 

. 709E+0I 

.709E+0I 

.709E+0I 

.709E+OI 

.709E+0I 

.709E+0I 

.709i;+0l 

3S0. 

.709E+0I 

.709E+01 

.709E+0I 

.709E+01 

. 709E+0I 

, 709E+0I 

.7096 +01 

360 . 

. 709E+0I 

.709E+0I 

.709E+0I 

.709E+OI 

. 709E+0I 

.709E+0I 

.709E'«OI 


i; 





<HE> 


VR - 1968 

DmV - i 

20 tIOHTH 

« 6 HOUR ■ n 

HIN > 0 

XHJO - 2I44 00S6. 

FIO - 100. 

,00 M08 

- 100.00 

Cl - 0 

fltriTUDE • 

165.0 








< -SOUTH) 

L8TITU0E5 

< +N0RTH) 

LON. 

50. 

60. 

70. 

80. 

90. 

k-KIEST) 






< ♦E8ST ) 






to. 

,709E*0t 

.709E+0I 

.709E+OI 

.709E+0I 

.709E+0I 

20. 

. 709E+0I 

.709E+0I 

.709E+0I 

. 709E + 0I 

.709E+0I 

30. 

, 709E*0I 

.709E+01 

.7S9E+0I 

.709E+01 

. 709E+0I 

40. 

. 709E»0I 

.709E+0I 

.709E+0! 

.709E+0I 

. 709E+0I 

50. 

. 709E+0I 

. 709E + 01 

.709E+0I 

. 709E + 0I 

. 709E+01 

60. 

. 709E+01 

.709E+01 

.709E+0I 

■709E+0I 

.70>t+0l 

70. 

. 709E+01 

.7C9E+0I 

.709E+01 

.709E+01 

.709E+0I 

80. 

. 709E*01 

.709E+01 

.709E+0I 

.709E+0I 

.709E+0I 

90. 

. 709E+01 

709E+01 

.709E+0I 

.709E+0I 

.709E+OI 

100. 

. 709E+0I 

.709E+OI 

.709E+01 

. 709E + 01 

.709E+01 

110. 

. 709E»0I 

. 709E + 0I 

. 709E + 0I 

. 709E + 0I 

. 709E+0I 

• 20 . 

. 709E+0I 

.709E+01 

. 709E + 01 

.709E+01 

.709E+0I 

130. 

. 71 0E»01 

.709E+0I 

. 709E + 0I 

.709E+0I 

.709E+0I 

140 . 

.7I0E*01 

.71 OE+OI 

.709E+0I 

.709E+0I 

. 709E+0I 

150. 

.7I0E+0I 

.71 OE+OI 

.709E+0I 

.709E+0I 

.709E+0I 

160. 

. 71 OE'01 

.71 OE+OI 

.709E+01 

.7fC‘E + OI 

.709E+OI 

170. 

. 71 OE+ni 

.71 OE+OI 

. 71 OE + OI 

.,.'?£+ Cl 

. 709E+0I 

180. 

. 71 OE+OI 

.710E+01 

.71 OE+OI 

.709E>0t 

. 709E+0I 

190. 

.710E+01 

.710E+01 

.71 OE+OI 

.709E+01 

.709E+01 

200. 

. 71 OE+OI 

.710E+OI 

, 71 OE+OI 

. 709E+0I 

. 709E+01 

210. 

, 71 OE+OI 

.71 OE+OI 

.71 OE+OI 

.709E+01 

.709E+01 

220. 

.71 OE+OI 

.71 OE+OI 

.7IOE+OI 

.709E+0I 

.709E+0I 

230. 

, 71 OE+OI 

. 71 OE+OI 

.71 OE+OI 

.709E+0I 

. 709E+0I 

240 . 

. 71 OE+OI 

.71 OE+OI 

.7I0E+0I 

.709E+01 

.709E+0I 

250. 

.7I0E+0I 

.71 OE+0! 

.71 OE+OI 

.709E+0I 

.709E+0I 

260. 

.71 OE+OI 

.71 OE+OI 

.7I0E+0I 

.709E+0I 

.709E+0I 

270. 

. 71 OE+OI 

.7I0E+01 

.7I0E+0I 

.709E+01 

.709E+01 

230. 

. 71 OE+OI 

.7I0E+0I 

. 709E+0I 

.709E+0I 

.709E+0I 

290. 

. 71 OE+OI 

.71 OE+OI 

.709E+0I 

.709E+0I 

.709E+0I 

300. 

.71 OE+OI 

.709E+0I 

. 709E + OI 

. 709E + 0I 

.709E+01 

310. 

. 709E+0I 

.709E+0I 

.709E+0I 

.709E+01 

.709E+01 

720 . 

. 709E+OI 

. 709E+0I 

.709E+0I 

. 709E + 01 

. 709E+0I 

330. 

. 709E+0I 

.709E+0I 

.709E+0I 

.709E+0I 

.709E+0I 

340. 

.709E+01 

.709E+0I 

.709E+OI 

.709E+01 

.709E+0I 

330. 

. 709E+0I 

.709E+0I 

. 709E+0I 

.709E+0I 

.709E+0I 

360. 

.709E+01 

.709E+0I 

.709E+0I 

.709E+0I 

.709E+0I 


> 



MEAN MOL WT 


PACE 


I 


I'R • 

1960 

DAY - 20 

MONTH 

> 6 HOUR - 12 HIH - 0 



XMJO 

• 2440020. f 

10 100.00 MOB 

• 100.00 

GI - 0. 

00 


i<cTn 

UC'E - 

185.0 











< -SOUTH) 

LATITUDES 

< *NORTH> 



LON. 


-20. 

-10. 

0. 

to. 

20. 

30. 

40. 

<-UEST) 








<*EAST) 








10. 


.2(i4E«02 

.205E«02 

.2«5E«02 

.205E«02 

.206E«02 

.206E+02 

.205E+02 

20. 


.2('5E*02 

.209E*02 

.2«SE*02 

.206E*02 

.2i<6E*02 

.i06£*02 

206E*02 

30. 


.205E+02 

.205E^02 

.206E*02 

.206E*02 

.206E+02 

.206E*02 

206E*02 

•10. 


.205E+02 

.205E+02 

.20SE+02 

,206E*02 

.206E+02 

.2«6E*02 

,20£E+02 

90. 


,205E»02 

.205E^02 

.209E*02 

.205E*02 

.206E*02 

.206E*02 

.205E*02 

60. 


.204E+02 

.205E«02 

.20SE'»02 

.205E«02 

.205E+02 

.2«5E«02 

.ROSE* 02 

70. 


,204E'»02 

.204E+02 

.204E402 

.205E+02 

.205E+02 

.205E+02 

.205E*02 

80. 


.203E*02 

.204E*02 

.204E*02 

.2C4E«02 

.204E«02 

.204E*02 

. 204E*02 

90. 


.203E+02 

.203E402 

.2«3E+02 

,204E<’82 

.204E+02 

.2C<4E*02 

.204E*02 

: 00. 


.202E'''02 

.202E«02 

.2«3E*02 

.203E*02 

.2C3E*02 

.203E+02 

.203E*02 

110. 


,20IE«02 

.202E*02 

.202£*02 

. 202E*02 

.202E»02 

.203E»02 

.203E*02 

■20. 


.201E+02 

.201E402 

.201E+02 

.201E«02 

.202E^02 

,202E*02 

■202E+02 

•30. 


.200E+02 

.200E>02 

.201Et02 

.201E«02 

.201E+02 

.20I€*0Z 

.202E*02 

■40. 


. 199E+02 

.200E»02 

.20 0E'»02 

.200E+02 

.201E«02 

,20IE*02 

.201E*02 

<90. 


. 199E>02 

. 199Ef02 

. 19PE*02 

.200E«02 

.200E'*^02 

. 200C* 02 

.201E*02 

!60. 


. I98E+02 

. 199E»02 

. 199E»02 

. 199E*02 

.200E't^02 

.ROOE'fOR 

.201E*02 

170. 


. 198E*02 

. 198E+02 

. 19eE*02 

. I99E+02 

. I99E+02 

.200E>02 

.200E*02 

too. 


. 19eE-»02 

. 198E«02 

. 193E+02 

. 198E.»02 

. I99E«02 

. 199E+02 

.200E*02 

<90. 


. 198E^02 

. 198E+02 

. 198E^02 

. 198E + 02 

. I99E+02 

. 199E+02 

.200E*02 

c90. 


, 197E+02 

. 19SE+02 

. 198E+02 

. 198E+02 

. 199E»02 

. 199E+02 

. 200E+02 

:io. 


, 197E+02 

. 198E+02 

. I9SE+02 

. (98E*02 

. 199E + 02 

. I9SE‘02 

.200E*02 

aao. 


. 197E+02 

. 198E+02 

. 198E + 02 

. 198E + 02 

. 19>E + 02 

. 1'95E + 02 

.200E*02 

l -10. 


. 197E+02 

. 198E+02 

. '98E + 02 

. 198E + 02 

. 199E*02 

. 199E+02 

.200E+02 

140. 


.197E+02 

. I98E«02 

. 198E«02 

. 198E+0?. 

. 199E + 02 

. 199E+02 

.200E*02 

:90. 


. 198E-»02 

. 198E«02 

. 198E + 02 

. I98E+02 

. I99k«02 

. 193E-»02 

.200E+02 

260. 


. l96Ef 02 

. 198E'»02 

. 198E+02 

. tsae^oR 

. 199E+02 

. 199E+02 

.200E*02 

270. 


. 198Et02 

. 198E'»02 

. 198E'»02 

.199E+02 

. 199E + 02 

.200E4^02 

.200E*02 

290. 


. 02 

.199E+02 

. I99E*02 

. 199E*02 

.200E+02 

.200E+02 

.201E+02 

290. 


, 19'i*t*02 

. 199E+02 

.200E*02 

.200E»02 

.200E+02 

.201E^02 

.201E*02 

7')0. 


,200E*02 

,200E«02 

.200E+02 

.201E-»02 

.201E.t^02 

.201E+02 

. 202E+02 

•10. 


.201E+02 

.20IE^02 

.20<E+02 

.20IE-»82 

.202E^02 

,202E+02 

.202E*02 

•20. 


.20IE+02 

,20£E*0Z 

.202E+02 

.202E+02 

.202E+02 

.203E+02 

.203E+02 

730. 


. 202E+02 

.203E«02 

.203E«02 

.203E+02 

.203E+02 

.203E>02 

.204E+02 

•40. 


.2o3E+02 

.203E«02 

.204E+02 

.204E*02 

.204E4.02 

.204E+02 

.204E+02 

750. 


.204E402 

.204E*02 

.204E+02 

.204E«^02 

.205E'^02 

.ROSE-fOR 

.209(7*02 

760. 


.204E'»02 

.205E+02 

.20SE«02 

.205E*02 

.205E+02 

.205E+02 

.209E*02 


J 

D 

) 

) 


-» 


MEAN MOL UT 


PAGE 3 




■ 1966 t>A'» - 20 MONTH - 6 HOUR - 12 MIN - 0 


4 .1JD ■ 

2440029. 

FI 0 ■ tO( . 

00 Ft 08 

- too . 00 

Cl - 0 

-.TITUOE 

- 165.0 








< -SOUTH) 

LATITUDES 

(♦NORTH) 

.ON. 

50. 

60 . 

70. 

80 . 

50 . 

-WEST) 






■ •CAST) 






to. 

.^05E■^02 

.205E'»02 

.20SE402 

.2(i4E«02 

.203E+02 

20. 

.205E«02 

.205E'*02 

.205E*02 

.204E*02 

.203E+02 

30. 

. 2 0f.E*02 

.205E«02 

.205E*02 

.204E402 

.203E+02 

40. 

.2Ci5E*02 

.205E+02 

.205E+02 

.204E^02 

.203E+02 

50. 

.205r*02 

.205Et02 

.203E402 

.204E*02 

.203E+02 

60. 

.205E+02 

.205E402 

.204E402 

.204E«02 

.203E+02 

70. 

.205E+02 

.205E-»02 

.204E402 

.204E402 

.203E+02 

30. 

.£04E*02 

.204E*02 

.204C*02 

.204E*02 

.203E+02 

)0. 

.204E+02 

.204E-»02 

.204E«02 

.204E«02 

.203E+02 

00. 

.204E*02 

.204E-»02 

.204E+02 

.204E402 

.203E+02 

•10. 

. 2('3E»02 

.203E+02 

.203E«02 

.203E‘»02 

.203E+02 

•20. 

.203E+02 

.203E+02 

.203E+02 

.203E*02 

.203E+02 

30. 

.202E^02 

.203E402 

.203E402 

.203E402 

.203E+C2 

•40. 

.l(‘EE*02 

.202E«02 

.203E*02 

.203E*02 

.203E+02 

50. 

,20ie*02 

.202E«02 

.203E«02 

.203E'»02 

.203E+02 

•60. 

.201E^02 

.202E4-02 

.202E-^02 

.203E402 

.203E+02 

70. 

.20IE«02 

.202E402 

.202E'»02 

.203E‘»02 

.203E+02 

•50. 

.201E«02 

.201E«02 

.20?E«02 

.203E'»02 

.203E+02 

•50. 

.201E+02 

.201E402 

.202E'^02 

.203E+02 

.203E+02 

200. 

.20IE402 

.201E*02 

.202E402 

.203E402 

.203E+02 

:t 0. 

. 20IE+02 

.20IC+02 

.202E-^02 

.203E«02 

.203E+02 

220. 

.20IE•^0^ 

.201E-^02 

.202E+02 

.203E402 

.203E+02 

230. 

.20IE*02 

.201E+02 

.202E*02 

.203E-»02 

.203E+02 

240. 

.201E^02 

.20IE'»02 

.202E'^02 

.203E402 

.205E+02 

250. 

.20IE402 

.201E402 

.202E402 

.203E402 

.203E+02 

260. 

.201E'»02 

.20tE'*02 

.202E402 

.203E402 

.203E+02 

2-»0. 

.20IE+02 

.202E402 

.202E402 

.203E402 

.203E+02 

250. 

.20IE402 

.202E4-02 

.202E-f02 

.203E402 

.203E+02 

250. 

.202E*02 

.202E*02 

.203E'»02 

.203E«02 

.203E+02 

TOO. 

.202E-»02 

.202E-^02 

.203E-»02 

.203E402 

.203E+02 

;10. 

.203E«02 

.203E+02 

.2(i3E-»02 

.203E+02 

.203E+02 

720. 

.203E»02 

.203E»02 

.203E^02 

.203E'»02 

.203E+02 

730. 

.204E402 

.204E402 

.204E+02 

.204E402 

.203E+02 

•40. 

.204E^02 

.204E402 

.204E>02 

.2041+02 

.203E+02 

750. 

.20SE-»02 

.204E»02 

. .204E-»02 

.204E+02 

.203E+02 

760. 

.205E'^02 

.205E4-02 

.204E-»02 

.204E+02 

.203E+02 




4 5-S«pW.U4t 


LOG DCH (CN/CttS) 


rR ■ DAY - 20 MONTH ■ 0 HOUR 12 MIN ■ 0 

aMJD - 2440020. FIO > 100.00 F I OB ■ 100.00 Cl - 0.00 

•^LTITUOE - 185.0 

< -SOUTH) LATITUDES <*HOR(TM'» 

.ON. -50. -BO. -?0. -60. -50. -40. -30. 

. -WEST ) 

. *E«ST> 


10. 

-. 125E»02 

-. 125E*02 

-. 125E*02 

-. I25E402 

-. 125E*02 

-. l2iE»02 

-. »24E*02 

20. 

-, I25E»02 

-. 125E*02 

-. t25E*02 

-. t25E*02 

-. I2SE*02 

-. I25E*02 

-. I24E*02 

30. 

-. )25E»02 

-. t2EE*02 

-. l2Se»02 

-. I25E»02 

-. (25E*02 

-. I25E*02 

-. I24E*02 

40. 

-. (25E«02 

-. I25E + 02 

-. I 2SE + 02 

-. I25E402 

-. 1 -’EE + 02 

-. I25E + 02 

-. «24E*02 

SO. 

-. )2gE»02 

- . t2SE*02 

-. 12SE*02 

-. »25E*02 

-. 122''*02 

- . I25E+02 

-. 124E«02 

60. 

-, I25E + 02 

-. I2SE«02 

-. I25E + 02 

-. I25E402 

-. l2St*0i< 

-. 125E+02 

-. I25E402 

?0. 

-. I2SE + 02 

-. I25E + 02 

-. 125E402 

-. I25E+02 

-. I25E+02 

-. I25E*02 

-. t25E« 32 

eo. 

-, 125E*02 

-. I25E*02 

-. t2SE»02 

-. I25E«02 

- . I25E»02 

-. )25E»02 

-. I25E+02 

90. 

-. t25E«02 

-. I25E+02 

-. 12SE + 02 

-. t25E»02 

-. I25E*02 

-, I25E*02 

- , I25E + 02 

- 00. 

-. I25E*02 

-. I25E + 02 

-. 12SE + 02 

-. I25E402 

-. I25E»02 

-. I25E*02 

-. )25E^02 

'to. 

-, I25E«02 

- . I2SE*02 

- . I2SE+02 

-. I25E«02 

- . I25E*02 

- . I23E«02 

- , 125E + 02 

•20. 

- . I25E+02 

-. I25E+02 

- . t2SE*02 

-. I25E«02 

-. I26E«02 

-. 12SE^02 

- . 12EE + 02 

■30. 

-. I25E+02 

-. I25E*02 

-. 12SE+02 

-. I25E + 02 

-. I25E402 

-. 125E + 02 

-. 125E402 

•40. 

-. I25E*02 

-. I2SE*02 

-. I2SE*02 

-. I23E*02 

-. I25E*02 

-. I25E + 02 

-. I2SE'»02 

■50. 

-. 12SE*02 

-. I25E + 02 

-. I25E+02 

-. 12SE'»02 

-. I2SE<^02 

-. I25E*02 

-. 125E»02 

’60. 

-. I25E + 02 

-. »25E402 

-. I25E + 02 

-. I25E+02 

-. t25E*02 

-. I25E+02 

-. I25E»02 

’70. 

-. 12SE*02 

-. I25E + 02 

-. l2SE*ti2 

-. 125E*02 

-. I2SE + 02 

-. I2SE«^02 

-. I2SE + 02 

•80. 

-, )2SE*02 

-. t25E*02 

-. 12SE + 02 

-. l25E-»02 

-. l25E+ft2 

-. I26E«02 

-. 126E + 02 

90. 

-.125E402 

-. l2^E-»02 

-. I2SE + 02 

-. I25E402 

-. »26E«''3 

-, 126E*02 

-. 126E*02 

:oo. 

-. 125E*02 

-. I25E>02 

-. 12SE + 02 

-. )25E*02 

- . t26E«^02 

-. t26E+02 

-. }26E*02 

;io. 

-. 125Ev02 

-. I25E'»02 

-. 125E»02 

-. l2c5E*02 

- . I26F»02 

-. 12bE»02 

-. I26E + 02 

:20. 

-. 125E*02 

-. 125E + 02 

-. t25E + 02 

-. I25E*02 

-. 126 r <-02 

-. I26C>02 

-, 126E + 02 

230. 

-. I25E + 02 

-. I25E*02 

-. 125E + 02 

-. tzse *02 

-. I26E«02 

-. f26E*0Z 

-. I26E'»02 

240. 

-. 125E+02 

-. I25E+02 

-. I2.5E+02 

-. t25E«02 

-. •26E402 

-. I26E*02 

-. t26E«02 

;so. 

-. I25E4 02 

- . I25E+02 

- . «2!5E+02 

-. I25E4 02 

- . I26E402 

-. I26E*02 

-. I26E402 

Z60. 

-. t25E^02 

-. I25E*02 

-. I2SE4 02 

-. I25E«02 

-. I25E*02 

-. I26E*02 

-. 126E»02 

270. 

-. I25E + 02 

-. 125E-»02 

-. 12SE*02 

-. I25E^02 

-. t25E*02 

-. I25E*02 

-. 125E*02 

!80. 

-. I25E + 02 

-, I25£f02 

-. 125E^02 

-. J25E402 

-. »25E*02 

-. I25E + 02 

-. I25E + 02 

290. 

-. 125E*02 

-. t25E<’02 

-. 125E»02 

-. I25E«02 

-. I25E«02 

-. I25E*02 

-. I2SE + 02 

*00. 

-. J25E+02 

-. I25E^02 

-. I25E + 02 

-. I25E402 

-. I25E + 02 

-. I25E+02 

-. 125E + 02 

310. 

-. 125E+02 

-. 125E + 02 

-. 125E + 02 

-. 125E + 02 

-. I25E + 02 

-. »25E402 

-. 125E402 

320. 

-.t25E*02 

-.I25E+02 

-. t2SE«02 

-. 125E + 02 

- . I25E«02 

-. 12SE + 02 

- , I2SE402 

330. 

-. 125E + 02 

-. »2SE’02 

-. »25E+02 

-. I25E+02 

-. I25E402 

-. I25E*02 

-. I23E'»02 

*40. 

-.125E+02 

-.125E+02 

-. 12SE-»02 

I25E+02 

-. 125E + 02 

-. I25E^02 

-. J25E402 

*50. 

-. I25E + 02 

-. I25E«02 

-. i25E»02 

-. I2SE402 

-. 125E402 

-. I25E*02 

-. 125E402 

360. 

-. I2SE+02 

-. 12SEf02 

-. I2SE4 02 

-. I25E+02 

- . 125E«^02 

-. 12SE*02 

-. 12SE+02 



PmCE 2 



j 


« 


LOG OEM <CM/CH3> 

'ft ■ 196S DAY > 20 MONTH ■ 0 HOUR - *2 MN - 0 

'nJD - 2440020. FIO ■ 100.00 FlOB ■ 100.00 Cl ■ 0.00 

.•LTITUOE - 185.0 

< -SOUTH) LATITUDES <*NORTH> 

-ON. -20. -to. 0. 10. 20. 30. 40. 

-WEST) 

♦EAST) 


I 





10. 

- . 124E^02 

20. 

-. 124E*02 

30. 

-, I24E*02 

40. 

-. 124E+02 

50. 

- . 124E«02 

SO. 

-. 124E^02 

70. 

-. I25E*02 

50. 

-. 125E^02 

SO. 

-. I25E+02 

'00. 

-. I25E+02 

'10. 

-. l2Se«02 

•20. 

125E*02 

30. 

-. 125E+02 

•40. 

-. 125E+02 

•SO. 

-. 125E+02 

<S0. 

-. 125E^02 

170. 

-. K»5E»02 

‘80. 

-. I2SE + 02 

SO. 

-. 126E + 02 

:oo. 

-. I.';SE + 02 

:io. 

-. 1iSe+02 

:2o, 

-. I26E + 02 

;3o. 

-, 126E*02 

140. 

-. 12SE*02 

:so. 

-. I2SE+02 

:so. 

-. 12SE + 02 

270. 

-. 125E+02 

:90. 

-. 12SE+02 

iSO. 

-. I2SE^02 

:oo. 

-. 125E+02 

•10. 

-. 125Et02 

720. 

-. I2SE + 02 

130. 

-. I25E + 02 

*40. 

“. 12SE^02 

iSO. 

-. I25E*02 

‘SO. 

-. I24E^02 


.I24E»02 -,124E^02 
. 124E*02 -. 124E*02 
. I24E^02 -. I24E*02 
. I24E^02 -. 124E»02 
. I24E^02 -. 124Et02 
. 124E*02 -. 124E*02 
.I24E«02 -.I24E«02 
.I25E*02 -.124E^02 
.I25E+02 -.I25E+02 
. I25E^02 -. 125E«02 
. 125E^02 -. 125E402 
. I2SE«02 -. I2SE402 
. 125E + 02 -. I25E+02 
. I2S£^02 -. I2QE^02 
. I2SE'»02 -. 12SE^02 
. I25E^02 -. I25E^02 
. I2SE«02 -. 12SE^02 
. I2S£^02 -. I2SE«02 
.I26E+02 -.I26E+02 
. I26E^02 -. I26E+02 
. I26E^02 -. I26E^02 
, 126E+02 -. I26E+02 
. 126E*02 -. I26E*02 
. 126E^02 -. I26E402 
. I26E+02 -. 126E+02 
. 12SE^02 -. l23Et02 
. I25E*02 -. I28E*02 
. 125E^02 -. 123Et02 
. I2SE«02 -. I2SE+02 
. I25E«02 -. 12SE^02 
. 125E»02 -. 125E+02 
. I25E1 02 -. 12SE^02 
. 125E+02 -. 125E+02 
.125E+02 -.12SE*02 
. I24E«02 -. I24E*02 
.t24E«02 -.124E^02 


-.124E«02 

-. 124E^02 

-. I24E»«2 

-. I24E*02 

-. I24E^02 

-. I24E + 02 

-. 124E«02 

-. I24E + 02 

-. I24E*02 

-. I24E^02 

-. 124E^02 

-. I24E*02 

-.124E*02 

-. 124E*02 

-. I24E^02 

-. I24E^02 

-. I25E + 02 

-. 125E + 02 

I25E+02 

-. I25E*02 

-. 125E«02 

-. I25E+02 

-. I25E+02 

-. I25E^02 

-. 125E+02 

- . I25E*02 

-. I25E + 02 

-. IftSE^Oft 

-. I29E^02 

-. I2SE<»02 

-. 125E+02 

-. I25E^02 

-. I25E^02 

-. I25E + 02 

-. 125E402 

-. I2SE«02 

-. I25E + 02 

-. I2SE+02 

-. I25E+02 

-. I25E*02 

-. I25F402 

-. I25E*02 

-. I25E+02 

-.125E+02 

-. I25E402 

-. I25E^02 

-. I25E4 02 

-. I25E + 02 

125E^02 

-. I25E402 

-. 125E*02 

-. 12SE + 02 

-. I29E*02 

-. 129E4’02 

-. 125E*02 

-. I25E^02 

I2SE^02 

-. I25E + 02 

-. I25E«02 

-. I25E402 

-. 125E402 

-. I25E+02 

I25E*02 

-. I25E+02 

-. 125E+02 

-. 125E402 

l25Et02 

-. I24E402 

-. 124E*02 

-. I24E«02 

I24E*02 

-. 124E402 


-.124E+02 -.124E^02 
-.124E*02 -.124E»02 
124E^02 -. I24E^02 
-. I24E+02 -. I24E*02 
-. I24E^02 -. I24E«02 
-.124E*02 -,I24E^02 
-.124E^02 -,124E»02 
-.124E*02 -.124E*02 
-. I24E*02 -. 124E*02 
-. l25Et02 -. l25Et02 
-. I25E+02 -. I28E^02 
-. I2SE^02 -. I2SE402 
125E+02 -. I25E^02 
-. I23E^02 -.125Et02 
-. I2SE«02 -. I2SE^02 
-. I23E+02 125E+02 

-. I23E+02 -. 125E + 02 
-. 125E^02 -. 125E*02 
-. I2SE402 -. I25E402 
-.I25E+02 -.125E^02 
-. I2SE^02 -. I25£^02 
-. 125E+02 I25E^02 

-. I25E»02 125E*02 

-. 125E+02 -. I25E+02 
-. 125E^02 -. 125E*02 
-.12SE+02 -.I25E*02 
-. I25E+02 -. 125E»02 
-.125E«02 -.125E«02 
-. 125E*02 -. 125E»02 
-. I25E + 02 -. 125E+02 
-. 125E^02 -. 126E+02 
-. I25E^02 -. 125E+02 
-. l23Et02 -. I25E + 02 
-. I24E+02 -. 124E+02 
-. I24E«’02 -. 124E«02 
-. 124E»02 -. 124E+02 



n 

[ 


LOG DFIN <GIVCH3> 


'k - DAY - 20 nONTH - 6 HOUR - 12 HIN - 0 


'NJD • 

2440028. 

FIO * too. 00 MOB 

- 100.00 

Cl - 0. 

■>LTITODE 

- 185.0 








< -SOUTH) 

LATITUDES 

< ♦ttORTH) 

.ON. 

50. 

SO. 

70. 

80. 

90. 

• -WEST) 






♦EAST) 






to. 

I24E*02 

-. t24E*02 

-. 124E»02 

-. 124E*02 

-. 125E*02 

20. 

-. l24Er02 

-. I24E'»02 

-. I24E^02 

-, I24E*02 

I23E*02 

30. 

-. I24E»02 

-. I24E^02 

-. I24E*02 

-. I24E+02 

-. I25E'402 

40. 

-. 124Et02 

-. I24E402 

-. I24E^02 

-. I24E*02 

-. I25E402 

SO. 

-. II'4E4 02 

I24E*02 

-. 124E^02 

-. t24E*02 

-. I23E*02 

SO. 

-. I24E«02 

-. I24E*02 

-. I24E*02 

-. I24E + 02 

-. I25e*02 

70. 

-. I24E*02 

I24E*02 

-. I24E*02 

-. I24E»02 

-. I25E*02 

• 0. 

- . I24E^02 

-. I24E«02 

-. I24E^02 

-. I2SE*02 

-. I2SE402 

90. 

-. I24E+02 

-. I24E«02 

-. 125E*02 

-. I25E*02 

-. I25E402 

; 00. 

-. 125E^02 

-. 125E+02 

-. 125E^02 

-. I25E + 02 

-. 125E*02 

' 10. 

-. I25E»02 

-. I2SE'^02 

-. I2SE»02 

-. I23E+02 

-. I2SE + 02 

>20. 

- . 125E+02 

-. t25E^02 

-. t2SE*02 

-. I23E'»02 

-, I2SE + 02 

•30. 

-.125E^02 

-. I25E + 02 

-. I2SE + 02 

-. 125E + 02 

-. 125E*02 

!40. 

-. 12SE+02 

- . I2SE^02 

-. I23E*02 

-. I23E'»02 

-. I23E'»02 

•50. 

-. 125E+02 

-. I25E + 02 

-. 12SE^02 

- . I25E + 02 

-. t2SE*'02 

■SO. 

-. 125E402 

I2SE + 02 

-. I25E*02 

-. t25E+02 

-. I25E402 

'70. 

-. I25E^02 

-. 12SE + 02 

-. 12SE^02 

-. I2SE402 

-. I23E+02 

•00. 

-. I25E^02 

125E+02 

-. 125E^02 

-. I25E+02 

-. I25E + 02 

90. 

-. I23E + 02 

-. 125E402 

-. I2SE^02 

-. t25E*02 

-. I25E»02 

:oo. 

-. I25E^02 

-. I25E + 02 

-. I25£»02 

-. I25E+02 

-. I23E‘»02 

;io. 

-. I25E + 02 

-. I25E + 02 

-. I26E+02 

-. t25E*02 

I25E+02 

;20. 

-. 125E + 02 

-. l25E-»02 

-. t25E*02 

-. 125E«02 

-. 125E + 02 

:jo. 

-. I25E + 02 

-. I2SE+02 

I23E + 02 

-. I23E^02 

-. I25E402 

i40. 

-. I26E*02 

I25E+02 

-. I2KE + 02 

-. I25E*')2 

-. I25E*02 

ISO. 

-. 125E»02 

-. I2SE^02 

-. t2SE'f02 

-. I25E^02 

-. I25E402 

ISO. 

-. I25E*02 

-. I2SE«02 

-. t23E«02 

-. I2SE'»02 

-. I25E+02 

:70. 

I2SE+02 

-. I25^^02 

-. l25E-»02 

-. I25E^02 

-. I25E+02 

180. 

I25E + 02 

-. I25E*02 

-. 125E+02 

-. I25E402 

-. 125E*02 

190. 

-. 12SE+02 

-. 125E'^02 

-. 125E»02 

l25E-»02 

-. I25E*02 

•DO. 

-. 125E+02 

-. I25E+02 

-. 12SE+02 

-. l25E'f02 

-. t2SE+02 

:I0. 

-. 125E+02 

-. 1^SE■^02 

-. 125E + 02 

-. 125E+02 

-. I2SE+02 

•20. 

-. I2SE+02 

-. l25E-»02 

-. I25E+02 

-. l23E-^02 

-. 128E+02 

:3o. 

-. I25E+02 

-. I25E<02 

-. I23E+02 

I2SE402 

-. I25E+02 

140. 

-.124E»02 

-.124E-»02 

-. 124E+02 

I25E402 

-. I25E402 

7S0. 

-. 124E+02 

t24E^02 

I24E*02 

-. I24E*02 

-. t25E402 

760. 

-. 124E»02 

124E*02 

-. I24E*02 

-, I24E402 

I25E‘»02 


APPENDIX A 


PROGRAM JAC70 


ATSUKO COMPUTING INTERNATIONAL 
HUNTSVILLE, ALABAMA • USA 



A-1 


PACE 


FTH, 


OPTS. 


LMI 


2 1 04 PM HOM. , 21 l EP, , I'iiil 


2 «EMA<' KOATA) 

3 PPOCSAM JAC70<3;,AC1- ''ilO'il 

4 C< 


JrtCCMIn '70 MODEL (PEEDm ■»y’;TCM> 


J 

f ■ 

I ,1 


10 c* 
n c* 

12 c» 

13 C» 

14 C» 

15 C* 
1C C* 

17 C* 

18 C* 

19 C* 

20 C* 


DtOCPIPriOHi PPOCPAM 'JMr70' IS THE JhCCHIh 70 MutEL 

WHICH iJn'j CONVtPItD ffuM THE UMIVmC 1106 •• 

TO THE HFtM CV‘TLH, •• 

ItlPUTSl USFP PPOVltf-.. INHJT f'MpHMKTtPt' VIA CPT'. ♦* 

«« 

OmTA BHSEi disc FILE ,'OL7f'i. ' f.'HT.JltU THE EmTh ft'VC •• 

FOP 'JAC70'. 

• « 

OUTPUTS. H MmTPIX L.PIO OUTPUT I'j OFmEPhTFO Tu THE »• 

HP-2006 PPIHIER. ** 

♦ * 

UFITIEN BVi JOHN S. HIliEV < hC n 5i3-7^.50 *• 

Mil E OICKtP.’OM ' HI. n 533 7S.^0 ♦♦ 


C* 

c 

c*. 

c 


21 
22 

23 

24 

25 
2 C 

27 

28 

29 

30 

31 

32 C 

33 C** 

34 C 

35 

36 

37 C 

38 C»» 

39 C 

40 

41 C 

42 

43 C*» 

44 

45 C 

46 

47 

48 C 

49 C** 

50 C 

51 

52 

53 1 07 

54 

55 

56 108 


^t**************** t * « * 




COMMON 8TATEME;.’T8 

COMMON ,'EPhTA/ I YP, IOh.MH, I HP , M I M , .U' '0 , F 1 0 , F I 08 , u I , ILhT, I LHC, 

. KLAT.XLNC 

COMMON/XOATm/AMATC 37, 37 >,OEMMhT< 3 7,37 >, 1>ENlUC< 37 . 37 ), HEMhTl 37, 37), 
. HMmTl 37,37 », 02HhTl 37,37 j,ONmT«, 37,37), lEMPv 37,37), 

. !<H2< 37, 37 ),WTMmT< 37, 37 ) 

COMMON ,''F(iHTm,' h'' 300 , F » , f'Eill O' 3 0 0 ' , M N J' 3 0 < , CH i 3 0 0 ' , Ei H 3 00.-, 

. TZ.'l 30 0 I, :.’L AIT' 500 ) , aIOuCh 5 0 0 ) , 3' 3 00 > 

C-INENSION SThTEMENIS 

PIMENf 'ON KBUF< 15 ) 

MMENSIOM It'CE* 2 76 ), 16Uf ' 4 0), MmMFI 3 ), IPmR< 5 ) 

DATA STATEMENTS 

DATA NAME,'2HJA,2HC7,2H0C'7 

'♦ 4* t> 4 4 4 4*44 4* 44 4 4 444*444* * 4 4 4 

FETCH 'CRT' LOGICAL UNIT HUMBER, *♦ 

4444*44<44444444*4*44 4*44*4*44*44444 4 4* 

CALL PMPAR<ir-Afi:) 

LO » IPaR< > 

PRIHT OUT BAHHER PAGE IHCLUOING PROORmM HhME mNC' DATE 

CALL FTIHE<K8UF) 

URITE(6,107> 

FORMATC " I “ > 

DO 7 K-I.IO 

URITE<6, 106) <KE"JF< I >, I'l , 15) 

FORMAT< “ 4 * 4444 4 4.44 pPOCFuM JhC70 EJ'.ECUTED aT i ’*,I5A2, 




» 


t 


PACe a JAC70 OPTii LHI Si 04 PH MOM., Si :£P., i:«9l 

8? , * UA$A/H$PC PP.tC'A SV&Trn 

88 7 COHTINUe 

58 C 

«0 

41 C*« AtK USER FOI( 'IHC>EX VA^IhOICE'?? •• 

4S C** II -- CEOM^ICNETIC INDEK •• 

43 C** IS -- OIlW»/*U ECni«TION IHPCM 

44 

49 C 

44 UftlTE<LU,IOO> 

47 100 ECifiM«T< "EHrESi OEOMmCNETIC 1NDE.«:9 <1-KP, S up)? “) 

44 KEPt'^LU,*) II 

4» WPITE<UMOI> 

70 101 ECftHAK "ENfEft DlUftNPL EOU INPEX'* O -KP , S -F I 06 , 3 hVC > i ") 

71 PEWKLU,*) IS 
73 C 

73 C*« PSK FOR JPCCHIA OATR FILE? 

74 C 

78 «69 UPITE<LU,4«4) 

76 666 FOPHftT< "EMTEft OhJA FILEi _■ ) 

77 RFPt><LO,667> < NPME< K > , I.- 1 , 3 > 

74 667 F0FMPT(3AS> 

7* C 

90 C** OPEN 'jOCXXX' DATA PASE DISC FILE 

91 C 

93 CALL OPEN< 1DC6, lEAR.NAME, 0> 

93 IF( lEPR.LT.O) URITE<LU,669> 

84 668 FOFMAT<» ERROR -- FILE NOT EXISTIHC ♦.• •) 

95 1F< lERR.LT. 0) CO TO 665 

86 C 

87 C»* PRINT HEADER AND TITLE INFORMATION 
04 C 

89 URITE<6.I09> < NnME ^ K ), K- 1 , 3 ) , 1 1 , IS 


90 109 FORMAT< “I •• PPOCFA" NAME i JAC70*,X, 

9S ! “ data FILEi •,3Aa//. 

93 . — 

94 . " CEOMAG INDEX I “,I4,X, 

95 . " ",XX, 

96 . “ DIURNAL INDEXi *.I6,X, 

97 . •./) 


94 C 

99 C*************'***************^**** 

100 C*« READ ' INPUT I ‘ DATA VALUES •* 

101 C*********'***’*’*’*****'*'********** *** 

102 C 

103 C*» SKIP 'INPUTI' HEADER RECORD 

104 C 

108 CALL READF< IDCe, lERP. I6UF > 

104 C 

107 C** READ 'ILAT' 4 'ILNC' 

108 C 

109 CALL READF< IDCB. lERR, IBUF > 

no CALL CODE 

Ml READ< IBUF, 300 > ILAT, ILNC 



PACE 9 ,«AC70 OPT(i 


LXI 


2iO-l PM HOH, , 2t :.£P., 


I IS 
119 
114 

119 
lU 
117 
Mt 
II* 

120 
121 
122 
129 
124 

1 29 
I2e 
127 
120 
I2fi 
13(1 

191 

192 
133 

194 

195 

130 
137 
130 

139 

140 

141 

142 

143 

144 
149 

146 

147 
146 

149 

150 

191 

192 

193 

194 
199 
156 
197 
156 

159 

160 
til 
162 

163 

164 

165 

166 


300 13. 10X, I3> 

C 

C** PCAO 'XLAII' APPAY UP TO 'ILAT' POIMTS 
C 

00 I 1-1,9 

•i • < I-l J»1 0 ♦ 1 

CALt liEA(F< lOrp, JfPP, IBUF > 

CAUL CODE 

PEAO< I6UF,301 ) <XL«TT(F J*9> 

301 FOftft«T< I OX, I 0<F5. 0, IX ) • 

1 CONTI HUE 
C 

C*» FEAt* 'KLOMG' AFPAY UP TO 'UNO’ POINTS 
C 

00 2 1-1,9 
J - < 1 - 1 >-1 0 ♦ 1 

CALL REAOF< lOCP, lEFP, lOUF > 

CALL CODE 

AiAP< ieor,3 01 ) <XLONO<K^,K-J, J*»> 

2 CONTINUE 

c 

C-* SKIP 'IHPUTI' END PECOPO 
C 

CALL REAOF< ItiCEi, lEPP, leUF ; 

C 

C«* mSK user for number of cafes 'NCASE' 

c 

WPITE<LO, I 02 •) 

102 FORMAT< "ENTER NCASE i ") 

REAEKLU.-) NCASE 

c 

C** LOOP TO PROCESS 'NCASE9' 

C 

00 104 INC- I, NCASE 

C-t , , t*- ,♦ ♦* ,♦♦♦ ♦♦ 

C»* REAO 'INPUT2' OATA PASE VALUES. 
C*r**^********»****^*****fr******»*t**** 

c 

c 

C— SKIP '1HPUT2' START RECORD 
C 

CALL REA0F< ioce, lERR, I6UF> 

C 

C-* READ IZ,Z,XMDJ,FI0,F10B, 6 Cl 
C 

CALL REAOFC lOCf, lERP, IBUP ) 

CALL CODE 

REAtX leUF. 302 > 12, Z< 1 >, XM..10, F 1 0, F I 06, Cl 

302 FORMATE 6X, 1 7, 3X , F6 1 , 6K, F6 . I , 5X , F6 . 1 , 6X , F6 , 1 ,4X, 
C 

C-- REAO IVR.MH. IC'A, IHR, E hIN 
C 

CALL REAOF< lOCe, lERP, leuF ) 


F6. 1 ) 


1961 


PACE 4 JAC70 OPTS I L(<l 


2i04 PM MON., 21 iEP., 1981 



’ t«7 CALL COOE 

166 PEAO< I6UF,303> IVP, MN, IDA, IHR, MIN 

169 303 F0PMAT<7X,I4,4N,I2,5X,I2,5X,I2,5X,I2) 

' 170 C 

171 C** READ ITEMP, IXN2, 102, 10, lA, IHE, IN, lEM 

172 C 

173 CALL READF< IDCB, lERR, IDUF ) 

174 CALL CODE 

175 R£AD< ieUF,304> I TFMP , IXH2 , 102 , 10 , 1 A , IHE , IN , I EM 

176 304 F0RMAT<9X, I3,6X, I3,5X, I3.4X, I3.4X, I3,5X, I3,4X, I3,'.X, 13) 

177 C 

178 C** READ IDEH (. IDLOC 

179 C 

160 CALL READF< IDCe, lERR, IBUF) 

161 CALL CODE 

162 REAC>< ieUF,305) IDEN,IOLOC 

163 305 FORMAT<SX, 13,7X,13> 

184 C 

169 C** INITIALIZE XMJD ■ 0.0 fc IZ ■ I 
166 C 

187 XMJD - 0.0 

166 12 - 1 

169 C 

C** INITIALIZE J COUNTER - 0 

191 C 

192 J-0 

193 C 

194 C** LOOP TO PROCESS XLAT' DATA 

195 C 

196 DO 202 I n-1 , ILAT 

197 C 

198 C*» LOOP TO PROCESS XlDHC' DATA 

199 C 

200 DO 201 1I>1,ILNG 

201 XLAT-XLATT< III ) 

202 XLNC -XLONGUI) 

203 C 

204 C** LATITUDE -- LT, LONGITUDE -- LD 

205 C 

’ 206 DO 200 1-1,12 

207 J-J«l 

206 C 

1 209 C-* CHECK J COUNTER EXCEEDS 30 ? 

210 C 

211 IF< 4-30)52,52,51 

J 212 C 

213 C** RESET J COUNTER - 0 
^ 214 C 

-7 215 51 CONTINUE 

216 J-0 

. 217 C 

' 218 C-- CALL 'TMF SUBROUTINE 

;-9 C 

220 52 C0NT4440E 

' 221 CALL TME<MN.rDA,IVR,lHR,MIN,XMJD,XLAT,XLHC,SDA,SHA,DO.DY) 



PAGE 


222 

223 

224 

225 

226 
:>zf 
22 « 

229 

230 

231 

232 

233 

234 

235 
23b 
237 
23d 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 


5 JAC70 OPT8i LXI 2i04 PI1 MOH , , 21 SEP,, 


C 

C«* CALL TINF- SU6P0UTINE 
C 

C»* SET PE-0.31** 

C**************** 

Rt - 0.31 

CALL TINF<FI 0,FI 0B,C1 , XLAT, SDA , SHA, DV , RE , II , 12, TE > 

T“TE 

C 

C** CALL 'JhC' SUPPOUTIME 

c 

CALL JAC<2< I >, T,77Z< 1 ), A< I, I ), AM ,2), A< I ,3 i.H*- 1,4 ),A< I 
IEM< I >,f)ENS< I >,C>L< I )> 

C 

C** INITIALIZE VARIABLES 
C 

ZZ = 2< 1 ) 
tiUMMY-0. 

OEN“0 I 
HENLCC I >-0. 

OUMMV-f>L< I > 

DEN»r>L< I > 

Y0AY=C)|> 

IF<Z2-I70. >20,20,50 
C 

C** CALL 'SLV' SUBROUTINE 
C 

20 CALL SLV<PUMMY,Z2,XLAT, VOaY) 

OEHLCC I >=r)UNMV 
GO TO 40 

50 IF<2Z-500. >40,40,30 
C 

C»* CALL 'SLVH' SUBROUTINE 

C 

30 CALL SLVH<,'C»EN,A<I,5>,XLAT,SC)A> 

OL< 1 >-T'EN 
40 COHTIHOE 

OL'. 1 >=DL< I >*C>ENLG< I > 

DENS< 1 > - » I > 

XLAT-,XLAT*<57. 29577951 ) 

C 

C** CONFUTE DENNAT<II,III) 

C 

DEHMAK II, Ml ) ■ DENS'.' I > * 1 000. 

TEMP< II, III > - T22< I > 

XN2< II, III > - A<I, t > 

02MAT<II,II1> « A<I,2) 

OMAT< II, III > • A< 1 ,3> 

AMAT<M,III> - A<I,4> 

HENAT< 1 1 , I II > « A<I,5> 

HMAT< 1 1 , 1 1 1 > « A< 1 , 6 > 

WTNAT<n,MI> EM<I> 
bENLOG( 11,111 > > DL< I > 

200 CONTINUE 


1981 


,5 >, AT I ,6 >, 


t 


PACE 

6 

JAC70 OPTSi 


LXI 

2 

277 

201 

CONTINUE 




276 

202 

CONTINUE 




279 

C 





260 

C** PERFORM MATRIX 

PRINTOUT 

261 

C 





262 


IF<IDEN .NE. 

0) 

CALL 

MATPR< 1 ) 

263 


IF< ITEMP.NE. 

0) 

CALL 

MATPR<2> 

264 


1F<IXN2 ,NE. 

0> 

CALL 

MATPR< 3> 

285 


1P<102 .NE. 

0> 

CALL 

MATPR<4 > 

266 


IF<10 .NE. 

0> 

CALL 

MATPR<5) 

267 


1F<IA .HE. 

0> 

CALL 

MaTPR<6) 

268 


1F<IHE .NE. 

0> 

CALL 

MATPR<7> 

269 


IF<1H .NE. 

0> 

CALL 

MATPR< 8) 

290 


IF<IEM .NE. 

0> 

CALL 

MATPR<9> 

29t 


IF< lOLOG.NE. 

0> 

CALL 

MATPR< 10) 

292 

1 04 

CONTINUE 




293 

C 





294 

C** PROGRAM 'JAC70' 

COMPLETED 

295 

C 





296 

999 

STOP 




297 


END 





FTN4X COMPILERi HP92S34 REV. 2030 <600821 > 


1981 


• • NO lifIRHIHGS •* HO ERRORS •* 


PROGRAM! 1780 


COMMON I <NOHE) 


Prtce 7 FTM. 


OPTSi Lxr 


C4 PM t(iji), , n ier- . , 


♦ XDOTA> 

eUBPOOTIME MPTPR<IP> 

C** SUBROUTINE 'MATPft' PERFORMS THE PRINTOUT OF ♦• 

C*» THE SPECIFIEO MATRIX. 

C****'**** + t-**^**** ♦♦ t * * * t * * * ** * * * 

c 

C»* COMMON STAIEHEHTS 

c 

COMMON /'EMATA/' I Vft , lOA , MN . I HP , M I H , XM JO , F I 0 , F )OB , C I , I L AT , ILNC, 
XLAT.XLHO 

COMMnN/XDATH.'AMATt 37 , 37 ). U!:HMmT< 37, 37 >, [>eHLOG< 37 , 37 ), HE MhT< 37, 37>, 
HMhT^ 37, 37 ),0£MAT< 37, 37>,OMATc 37,37 >,TEilP< 37,37), 
XN5;< 37, 37 ), UTMAT< 37, 37 > 

COMMON 7F0ATA7 A< 300, 6 ), C'ENL&< 300 >, OEHS< 300 >, OL( 300 > , EM< 300 >, 

. TZ2< 300),XLATT< 30U >,XLONC< 300 ),ZC 3 00) 

C 

C*» MMEHSION STATEMENTS 
C 

OINENSIOM IHEAO<S,IO) 


C*» DATA STATEMENTS 
C 


321 

DATA IHEAD,'2HDE,2HNS, 2HI T 

,2HIE,2HS 

,2H<K,2HG,-' 

,2HM7 

2H 

322 

. 2HTE,2HMP,2H. 

, 2Ht>E,2HG. 

,2H K 

,2H 

,2H 

2H 

‘ 323 

2H(N,2H2>,2H 

,2H 

,2H 

,2H 

,2H 

,2H 

2H 

324 

. 2H<0,2H2),2H 

,2H 

,2H 

,2H 

,2H 

,2H 

2H 

125 

. 2HfO,2Hi ,2H 

,2H 

,2H 

,2N 

,2H 

,2H 

2H 

326 

. 2H<A,2H> ,2H 

,2H 

,2H 

,2H 

,2H 

, 2H 

2H 

. 327 

. 2H<H,2HE:>,2H 

,2H 

,2H 

,2H 

,2H 

,2H 

2H 

326 

. 2H<H,2H1 ,2H 

,2H 

-2H 

, 2H 

,2H 

,2H 

2H 


. 2HME,2HhN,2H M 

, 2HOL,2H W 

,2HT 

, 2H 

, 2H 

2H 

330 

. 2HL0,2HG ,2HDE 

,2HH 

i C 

,2NM,-' 

,2HCM 

,2H3> 

2H 


C** COMPUTE NCP 
C 

HPC - ILAT X 7 


C»* LOOP FOR NOP TIMES 
C 

IF< MOtK ILAT, 7) , NE , 0) HPC « NPC ♦ I 

DO 300 11=1, NPC 

ISTR ■ < ri - I ) • 7 ♦ 1 

ISTP - ISTR ♦ 6 

IF<ISTP ,CT. ILAT) ISTP • ILAT 
C 

C**UP1TE HEADER 
C 

WRITE<6, 7 000) < IHEAP< 1 , IP ), I - I , 9 ), 1 1 , I VR , IDA, MN, IHP , MIN, ,‘<M JD, F I 0, 
IFI 0B,CI,2< 1 > 

7000 FORMAT< 1H1 ,2SX,SA2r, SIX, "PACE 

IIX,"VR ■ ",I4,3M."PAV = “, 12, 3X, “MONTH • " , 12, 3X, "HOMP « ",I2,3X, 
2“MIN ■ ", I2XIX, “:.MJD - " , FS . 0, 3X, “F I 0 - ",F6.2,3X, 

3"FI0B ■ ",F6,2,3X, "Cl ■ “ , F6 , 27 1 X, “ ALTI TUDE - ",F7,1) 

C 




^■^GE e HmTPR CPTSi lmi 


2 1 O'* PM MOM.. 21 $EP., I SSI 


353 C** PPIMTOUT XLrtTT' AHRrtV 

354 C 

365 WRITE<S,?001 ) < XLPTT< I >, I-ISTR, ISTP > 

356 ?001 FCiRrtrtK IMO, 30X, ■<- SOUTH) LATITUDES < ♦NORTH ) V I X, "LOM . ” , SK, 

357 I7<F5.0,5X>> 

355 WRITE'' 6, 7 003) 

35S 7003 FORMHK IH , -IJES T )'V I X , +EHST )'V ) 

360 C 

361 C** PPIHIOUT 'XLCiN'I' ARRAY 

362 C 

363 r>i 250 J-1.1LHG 

364 IFviP.eO.I) WRITERS, 7002) XLONC< J ), < OENMhT< J , I ) , I « 1 iTR , I &TP ) 

365 IF<IP,£C».2) UR1TE<6, 7002 ) XLOIIC<J).< TEMP< J, 1 ) , I < I STR , I STP ) 

366 1F< IP.EQ.3) WRITE<6,7002) XLOHC< J),< XN2< J. I ) , I - I STR , J STP > 

367 IF<IP.E0.4> UR1TE«;6,7002) XLONC<J>,< 02MAT< J, I >. I - 1 3TR , ISTP ) 

36S IF< IP.ECi.5) URITE<6.7002) XL0HG< J),< OMAT< J, I ), I - ISTR , 16TP ) 

36S IF<IP,E(J,6) URI TECS, 7002 I XLOHO<J),< AMAT< J, I ) , I - 1 3TR , I STP ) 

370 1F<1P.E0.7) tJRlTECS, 7002) XL0NC<J),< HEMAT< J, I ), I « I STR , 1 STP ) 

371 IFClP.EO.S) WRITE<6, 7002) XLOHC<J),< HHAT< J, 1 ) , I - I 3TR , 1 3TP ) 

372 IFCIP.EO.S^ UR1TE<6, 7002) XLONG<J),< WTMAT< J, I ) , I * I STR , ISTP ) 

373 IF<, IP.EO. 10) WRn£< 6,7002) XLONGC J ), ( OENLOG< J, I >, I = I OTR , I STP ) 

374 7002 FORrtATCIH , F4 . 0, 4X , 7E I 0 . 3 > 

375 250 CONTINUE 

376 300 CONTINUE 

377 C 

376 C*» RETURN TO CALLING PROGRAM 
379 C 

360 RETURN 

361 END 


FTN4X COMPILER! HP92S34 REV. 2030 <800321) 


4"* NO UAFNINGS NO ERRORS ■♦*■ PROGRAM! 366 COMMON! <NONE) 


0 


i 


I 

I 

! 



^ACE 


362 

363 
384 

365 

366 
38? 
366 
386 

390 

391 

392 

393 

394 

395 

396 
39? 

398 

399 

400 

401 

402 
4 03 
4 04 

405 
4 06 
407 

406 

409 

410 
41 I 

412 

413 

414 

415 

416 

417 
416 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 
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SUBROUTINE T I HF< F I 0, F I OB , C I , XLAT , SDh, SHA.OV.RE, 1 1 , 12, TE > 

C*»*»»**»****»»*******»**********»**»»******»»«»»»*»*«***»»«** 


C*» SUBROUTINE 'TIMF' CALCULhTES THE EXOSPHERIC TEMPERATURE 

ACCuPMHC TO JACCHIA SAO NO. 313, 1970. •* 

C** •• 

C»* F10 » SOLAR RAUIO NOISE FLUX <XE-22 IJATTS,"M + '*2 ' ** 

C»* FI OB- 61 -DAY AVERAGE FIO ** 

C** Cl - CEOMAONETIC ACTIVITY INDEX •• 

C»* LAT - CEOCPAPHIC LATITUDE AT PERIGEE < IN RAO > •• 

c«* SDA ■ SOLAR DECLINATION ANCLE < IN RAD) •• 

C** SNA - SOLAR HOUR ANCLE •• 

C*. DY - D/Y <DAY NUMOER.'’TRORICAL YcAP>j 1 ♦* 

C*» II - CEOMACNI.TIC EOUATION I HDEX< I - - C I -KP , 2--Cl = AP. *• 

C** 12 - DIURNAL EOU INDEX < 1 -R< KP ) , 2- -R< F 1 OB >, 3-R< AVC > . *• 

C** RE • DIURNAL FACTOR KP,FIOB,AVG. 

C** *• 

C*» CONSTANTS -- C-SOLAR ACTIVITY VARIATION. ♦♦ 

C*» -- BETA, ETC. « DIURNAL VARIATION. +♦ 

C»» — D-CEOMACNETIC VARIATION. 

C** -- E-SIMIANNUAL VARIATION. 

C • » ♦ • 


c 

C** DATA STATEMENTS 
C 

DATA Cl/363. O,' 

DATA CS/3.32/ 

DATA C3/I .80/ 

DATA PI/3. 14159/ 

C 

C»* PERFORM CALCULATIONS 

C 

CON = PI/180. 

BETA- -37.0*CON 
CAMMA= 43.0+CON 
P - 6.0*COH 

XM - 2.5 

XNN - 3.0 

C 

C»» IHITIALI7E GEOMACMETIC VARIATION VARI''RLES 
C 

Dl - 28.0 

D2 - 0.03 

D3 - 1.0 

D4 - 100.0 
05 - -0.08 

C 

C+» INITIALIZE SIMIAHHUAL VARIATION VARIABLES 
C 

El - 2.41 

E2 « 0.349 

E3 • 0.206 

E4 ■ 360.*COH 
E5 - 226.5*C0N 
E6 ■ 720.*CON 


» 



/ 


'ACE 10 TINE 


OETCi LXI 


1 04 PM MON., St SEP,, t5>6t 


437 E7 - 247.6-COH 

438 E8 - 0.1 145 

43«- E9 • 0.5 

440 EI0> E4 

44t EM- 342.3»C0N 

442 Et2- 2.16 

443 C 

444 C»* SOLAR ACTIVITV VARIATION 

445 C 

446 TC - Cl ♦ C2*FI06 ♦ C3»<FI0 - FI0B> 

447 C 

448 C** OaiRHOL VARIATION 

448 C 

450 ETA • 0.5-*AB5<XLAT - SOA > 

451 THETA ■ 0 . 5-» ABS< !<L AT ♦ SOA> 

452 TAU ■ SNA ♦ BETA ♦ P*SIM<8HA ♦ GAMMA) 

453 TPI-2*PI 

454 IF<TAU) 210,230,230 

455 210 IF<TAU«PI) 220,250,250 

456 220 ThU^TAU»TPI 

457 GO TO 210 

458 230 JF<TAU-PI) 250,250,240 

459 240 TAL'-TAU-TPI 

460 GO TO 230 

461 250 CONTINUE 

462 C 

463 + + 

464 C*« SET R - RE < RE - 0.31) ** 

465 C***^****"* 

466 C 

467 RE • 0.31 

468 R B RE 

469 Al ><SIH< THETA >>«*Xn 

470 A2 -<COS<ETA)>*’*XM 

471 A3 -<COS< TAU/2. >)*»XNH 

472 B1 ■ I .0 ♦ R4A1 

473 82 >(A2-AI)/<1. * R«>AI ) 

474 TV - Bl»< 1. ♦ R*B2+A3> 

475 TL • TC*TV 

476 C 

477 C** GEOMAGNETIC VARIATION 
476 C 

479 IF <11-1 > 50,50,60 

460 50 TG - M«CI ♦ D2«E)<P<CI> 

481 CO TO 70 

482 60 TC • t»3*CI ♦ D4*< 1 -EXP< D5»GI > > 

463 70 CONTINUE 

464 C 

465 C** SEMIANNUAL VARIATION 

466 C 1 

437 C3 “ 0.5*<1.0 ♦ SIH<EI0*DY ♦Ell) ) 

468 G3 • C3*«EI2 

469 TAUI ■ DV ♦ E8-«<C3 - E9) f 

490 GI « E2 ♦ E3KSIN<E4*TAi.lt ♦ E5 ) ) 

491 C2 • SIN<E6*TAUI* E7) * 



RAGE 1 1 

TINE 

ORTSi LNI 

2i 04 PM MON. . 21 iEP, , I9SI 

492 

TS • El 

♦ FIOB»QI»02 



493 C 

494 C«* t>'OSPH£RIC TCIIPERrtTUPE 

495 C 

496 TE • TL ♦ TC ♦ TS 

497 C 

496 C** RfcTURN TO CALLING PROGRAM 

499 C 

500 RETURN 

sot ENO 


FTH4X COMPlLEfti HP97834 REV, 2030 <800&2t) 


♦* HO UmFHINGS ♦* NO ERRORS ♦♦ PROGRAMi 568 


COMMON I <NONE) 


P*4C£ tS fTH. 


OPJiii 


LMI 


2 1 04 PH HON,, 21 HP , , 1981 


> 

J 

0 


902 

903 
994 
909 
906 
90? 
900 

909 

910 
91 1 

912 

913 

914 

915 

916 
91 ? 
910 
510 
5£0 
921 
522 

923 

924 
525 
926 
52? 
529 

529 

530 

531 
932 

533 

534 

535 

536 

537 
939 
939 

540 

541 

542 

943 

944 

545 

546 
947 
549 

549 

550 

551 

552 

553 

554 

555 
956 


9U8R0UTIHE TME<HN, IDA, IVR, IHR , HIN, KM JD, XLAT, KLNC , SDA, SHA, DD,DV > 


SUBROUTINE 'THE' PERFORMS THE CALCULATIONS OF THE SOLAR OECLl- 
NATION ANGLE AND SOLAR HOUR ANGLE. 


INPUTS! 


HN 

IDA 

IVR 

I HR 

niH 

XHJP 

KLAT 

KLNC 


OUTPUTS! SDA 
SNA 
DD 
OY 


MONTH 

DAY 

YEAR 

HOUR 

MINUTE 

MEAN JULIAN DATE < IF-0 THEN ,VMJD IS CALCULATED) 
LATITUDE < INPUT-GEOCENTRIC LATITUDE) 

LOHCITUDE< INPUT-GEOCENTRIC LONG I TUDE , - 1 80, ♦ I 90 > 

SOLAR DECLINATION ANGLE (RAD) 

SOLAR HOUR ANGLE < RAD ) 

DAY NUMBER FROM 1 JAN. 

OD/TROPICAL YEAR 

****m***********0p*******t**-t*4*iti********ti**t**pt* 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C** DIMENSION STATEMENTS 

C 

DIMENSION IDAV( 12) 

C 

C** DATA STATEMENTS 
C 

DATA IDAY/31,28,31,30,31,30,31,31.30,3I ,30,31.' 
DATA YEAR,'36S.2422/ 

C 

C** SET COHTSTANTS 
C 

KLAT-,SLAT/57, 2957 7951 
YR-IYR 

J-lYR-4*< IYR,‘-4) 

IF< J>10,5,10 

5 lDAY<2)-29 
10 CONTINUE 

IF <MN-1 ) 3,3,4 

3 DD-IDA 
CO TO 6 

4 KE-MN-1 
ID-O 

DO 20 I-I,KE 
ID - ID IDAY< I > 

20 CONTINUE 

ID « ID « IDA 
DD - ID 

6 DY - DD/YEAR 
C 

C** COMPUTE MEAN JULIAN DATE IF XMJD - 0 
C 

IF(XMJD) 30,25,30 

25 XMJD • 2439956. ♦ 365 , ■»< YR- 1 968 . > ♦ DD 
LDD - <lYR-l965)/4 
XMJD ■ XMJD ♦ LDD 




« 



PMOE 


58? 

SSt 

559 

550 
5ft I 
5ft2 

563 

564 

965 
964 
567 

966 
866 

570 

571 

572 

573 

574 

575 

576 

577 
575 
579 

560 

551 

582 

583 

584 

585 

586 
557 
556 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
602 

603 

604 

605 

606 

607 

608 

609 

610 
611 


13 THE OFTfti LMI 2 1 04 PH HON., 21 5EP , , )9«t 


30 FHJD - XHJD - 2435039. 

C 

C** COMPUTE CPk'ENMICH MEAN TIME IN MINUTES CMT 
C 

XHR ■ INK 
NHIN - MIN 
CMT - 60*NHft ♦ KMIN 
C 

C*» COMPUTE CPEENWICH MEAN POSITION - GP < IN OEC > 

C 

SJ - <XMJD - 2415020. 0)/O6525. 0.» 

At«99. 6909833 
A2 - 36000.76854 
A3 - 0.00038706 
A4 - 0.25068447 

CP - Al ♦ A2*NJ ♦ A3*XJ*KJ ♦ A4*CMT 
N - CP/360. 

XN ■ N 

CP - CP - XK*360. 

C 

C** COMPUTE RIGHT ASCENSION POINT - RHP < IN DEC) 

C 

C** 1ST CONVEPT GEOCENTRIC LONGITUDE TO DEC LONGITUDE - WEST NEC 

C 

lEACT - XLNG/^teO. 

XFACT - IFACT 
XLNC-XLNG-360 . ♦XFACT 
C 

RAP - CP ♦ XLNG 
N - RAP/360. 

XN - N 

RAP - RAP - XN»360. 

c 

C** COMPUTE CELESTIAL LONGITUDE - XL8 < IN RAD > - -ZERO TO 2PI 
C 

Bt - 0.017203 

82 ■ 0.0335 

83 - 1.410 
Vt - BI*FMJD 

XL8 ■ VI ♦ B2*SIN<V1> - 83 
TPI - 6.26318 
N - HLS/TPI 
XN - N 

XL8 - XL8 - XN^TPI 
C 

C*» COMPOTE SOLAR DECLINATION ANCLE - SDA < IN RAD > 

C 

B4 - < TPI.'360. >*23.45 

SDA - ASIN<51N<XLS>*SIN<B4>> 

C 

C** COMPUTE RIGHT ASCENSION OF SUN - RAS < IN RAO> - -ZERO TO 2PI 
C 

RAS ■ ASIN<TAN<SDH>.'’ThN<84>> 

C 

C** PUT RAS IN SAME QUADRANT AS XLS 


EAST 



PACE 14 THE 


OPTbi LMI 


2i 04 PM NON. , 21 &EP. , 1921 


412 C 

413 PI « 3. I4IS9 

414 PI2 - PI<'2. 

419 PI32- 3.*PI2 

414 PAS - AeS(PAS> 

417 TEMP - ABS<KLS) 

4i4 1F<TEHP - P12> 130,130,100 

419 too 1F<TEHP - Pl> t0S,l09,M0 

420 109 PAS • PI - PAS 

421 CO TO 130 

422 no IF<T£HP - p|32> 119, MS, 120 

423 1 19 PAS - PI « PAS 

424 GO TO 130 

429 120 PAS - TPI - RAS 

424 130 If <XLS> 135,140, 140 

427 139 PAS - -PAS 

420 140 CONTINUE 

429 C 

430 C** COMPUTE SOLAR HOUR ANCLE - SHA < IN OEC) 
631 C 

432 SHA » RAP*<PI,Me0. ) - RAS 

433 If<SHA> 210,230,230 

434 210 IF<6HA*PI> 220,290,290 

439 220 SHA>SHA«TPI 

434 GO TO 210 

437 230 If<SHA~PI> 290,290,240 

436 240 SHA-SHA-TPI 

439 CO TO 230 

440 250 CONTINUE 

641 C 

442 C»* RETURN TO CALLING PROGRAM 

443 C 

444 RETURN 

449 ENO 


FTN4X COHPILERi HP92e34 REV. 2030 <800621) 


•• NO UARNINGS *• MO ERRORS ** PROGRAM) 960 COMMON) <NOME> 


i 



OF-TSi LKI 


i)()A F’M NOH, , 21 ief’., 1961 



fAGE tS FTN. 



«4« 9U6A0UTINE JAC< Z, T , TZ , AN, A02 . AO , AA , AHE , AH , EM, DEN5 , DL ) 

447 C»**»**«**»»******»»***»»***»*»»»»*»»»*»»»»*«»»*»*»»»»»»** 

446 C** SuefOUTIHE ' JAC ’ PERFOPHS THE SIMPSONS RULE OUAOP.A- •* 

449 C** TURE (8R04> IMPLEMENTED BV C. f. KUNCIR. *• 

450 C»* •• 

651 C** A ■ LOWER LIMIT OF IHTECPATIOM •* 

492 C** 0 ■ UPPER LIMIT OF INTCCfiATlOH ** 

653 C»» FUHC - IHTEGPANO FUNCTION fUOPRO&RAM •• 

654 C** EPS • RELATIVE lRPOR CONVERGENCE CflTERIOM •• 

455 C** M - MAXIMUM HUMBER OF INTEGRATIONS *• 

456 C** R • RESULT OF INTEGFATIOH •* 

657 C«* N • NUMEER OF INTEGRATIONS RfOUIRFO TO FIHt* R 

656 C»* •• 

459 C****«*»****»****»»»***»»*» 

440 C 

441 C*« C'lMENSION STATEMENTS 

662 C 

663 DIMENSION ALPHAS 6 > , E 1 ' 6 ) , D I < 6 > , 0< 7 > , C> I Tc 6 ) 

664 C 

465 C»« DATA STAILMENTS 

666 C 

667 DATA 00,' I 00./ 

660 DATA ALPHA,'0. 0, 0. 0, 0. 0, 0. 0,-,360, 0. 0,' 

669 Data AV/6. 02257E23/ 

470 DATA EI,'2S. 0134, 31 . 9906, 15.9994, 39.943, 4 , G026, I , 00797,' 

471 DATA B,'23. I 6204 , -0 . 035566 , I .284 0E-04, - I . 0056E-05, -I . 021 OE-05, 

472 . I ,5044E-06,9.9e26E-03/' 

473 DATA ON/,78110,' 

674 DATA 002/, 20955/ 

675 DATA OA/, 009343/ 

676 DATA OHE/1 . 269E-05/ 

677 DATA FK/6.31432/ 

476 

479 C*4 SET VARIABLES 

460 C*« 

461 ALPHAC 1 > ■ 0.0 

602 ALPHA(2> - 0.0 

663 ALPNA<3> • 0.0 

684 ALRHAC4) - 0.0 

605 ALPHA<5> - -.38 

606 ALPHA(6> - 0.0 

687 AV - 6.02257E23 

600 EI< I > - 28. 0134 

409 EI(2> - 31 .9906 

490 EK3) - 15.9994 

491 EI<4> - 39.940 

492 EI<5> - 4. 0024 

493 El<4> - 1 .00797 

494 B< 1 ) - 28. 15204 

695 6<2> - -0. 065586 

496 B<3> - 1 .2640E-04 

697 B<4) ■ -1 . 0056E-05 

696 B<5> ■ -1 .02I0E-05 

499 eC4> ■ 1 .5044E-06 

700 B<7) - 9.9826^i-ne 


[ 

i; 

i: 


0 



ACi I « JAC 


OAT 61 LXI 


2 1 04 AH 21 '^EA., I'»8I 


?oi ON > .ratio 

702 002 > .20959 

703 QA ■ .009343 

704 ONE ■ I.299E-05 

709 FK - a. 31432 

700 C 

707 €•• AEAFOftH CALCULATIONS. 

700 C 

709 Tl ■ T 

710 TX = 444.3S07». 0?36?»T I -392 , a£92*EXA< - . 002 1 397*T I > 

711 A2-2 . •< T-TX V3. I4I 5392'49 

712 OtTC6>>0. 

713 n>io 

714 EPS*. 0001 

719 n«l .9*< TX-IS3. V39. 

7ia T4*3.*<TX-ia3.-2.*n»35,/3. )/<35.**4) 

717 T3*-TI/<3.*36.*»2>*4,*r4.35,/3, 

710 T2*TX*TI«<£-125. 3*T3»<2-I25. m»3*T4»<2 I2C. )*»4 

719 IF <2-109, ) 43,43.40 

720 43 22 - 2 - 00 

721 EH*e< I )«e< 2 )* 22 «B< 3)«72‘*2*B< 4 i»72 ♦ * 3 ♦B' 5 )* 22 *-* 4«B': C ;* 22« *5 

722 l•^•<7>«22••0 

723 D-2 

724 70 CONTINUE 

729 A>90. 

724 FA*a< I >*D<2 >•< A-OO >*B< 3 >♦< A-00 >«*2«B< 4 )•< A-OQ )**3*B< 9 > *< A-OCI >**4 

727 l♦8<4>•<A-00)*•9 ♦BC 7 )•< A-OQ >**4 

720 FA*FA*9.00699A< I . ♦A.-’O , 35<: 74CE ♦ 3 >**2 > 

729 FA'Fh/C TX*T1 •< A- I 2t. . >«T3«< A-1 2S , )* »3 ♦T4*( A - 1 25 . ) **4 ) 

730 FO»Bv 1 2>«<t>-00 m 6< 3>.<P-(ir .2 + B< 4 )»':D-00 )t*3*e< 5 .>♦( B-QQ )*44 

731 l♦B<4)♦<D-00>♦*9 ♦B< 7 )*< 0- 00 >• . 

732 FO-FP*9.00465/<< I . *0.^6 . 3S4>'60E*3 >**2 ) 

733 F0«F0/<TX*TI*<t>-l25. >«I3*<0-I25. >**3 ♦T4n D- 1 25 . )**4 > 

734 C 

739 C«* U:mALI2E COUNTERS 
734 C 

737 N-0 

734 PREV-0. 

739 £0NE»<D-A>»<FA*Ft>J/2. 

740 71 N«N*I 

741 IF <N-H> 72,72.75 

742 72 NINT»2*«'N 

743 tTUO-O. 

744 .’kEL-CP-AVFLOATLNlNT) 

745 00 73 I-I.NINT.2 

> 744 N-A*OEL*FLOAT< I > 

747 FX*B< I >*B< 2 )•< X-OO >»B< 3 >*< X-OQ >*»2 + B< 4 >*< X-OQ )**3*B< 9 )■♦< X-00)**4 

.. 74B l4B<6)*<X-00.'i**5 4B< 7 )*< X-OQ >■*•6 

J 749 FK-FX'*9.80645/<< I .♦X,'4,35674<.E*3)**2) 

790 FX-FXATX4T1*<X-I25. )4T3*<H-I25. >**3 *14 *< X- 1 25 . >**4 > 

791 73 8TU0-STU0+FX 

’ 792 CUR*S0NE*4 , •PEL*STW0 

793 IF <EAS*APS<COR )-AOS< CUR-PREV)> 74.75,75 

754 74 AREV-CUR 

799 SONE*<SONE«CUR V4. 





17 


0f>T6i 


3 1 04 PM 


MOM , 21 :ep., I^>il 


79* 

797 

790 

790 

7*0 

7*1 

7*2 

7*3 

7*4 

7*9 

7** 

7*7 

700 

7*0 

770 

771 

772 

773 

774 
779 
77* 
777 
770 
770 

700 

701 

702 

703 
784 
705 
70* 

707 

708 
700 

700 

701 

702 

703 
794 

709 
79* 
797 
700 
709 
000 
001 
002 

003 

004 
009 
00 * 
807 
008 

009 

010 


JAC 


LMI 


00 TO 71 
79 O-CUR/3 

IF <2-109. ) 44, 7*. 44 
44 IF <0109. > 7*, 99, 7* 

7* 0EKS-3.46E-9«103.»En*EXP< -0/FK)/'< T2«iO.07O ) 

0L-AL00r<0eHS> 
l»AR»AVfeH9/Eri 
rtN»A1.0GT< 0H*EM»FAR.";'0 . 9* > 

AA-ALOOT< 0A*EM*PAI>,'2e , 9* > 

AHE- ALOCT< 9HE »EM •FAR.''28 . 9* > 

AO-ALOOT< 2 . •F«R*< 1 . -EM,'26 . 96 > ) 

A02-AI uOT<FhF»<EM*< 1 . *002 ),^20. 96-1 . )) 

AH--0. 

C 

FETURiH to calling PfiOCftAM 
C 

FETUFN 

C 

C*» CCHTIHUE CALCULATIONS 
C 

40 23>105. 

TZ3-TM»TI*<23-129. >*T3»< 23- 1 25 )»»3 » T4 .< 23- 1 Z-J ^*♦4 
2M3«e< I >«8<2>* 9.«8<3>* 29.*8<4>* 125. •8<5^* S.**4.*8(6>* 5.**9. 
1«B< 7)* 9.**6. 

P>1 09. 

CO TO 70 

99 DEM1-3.46E-9*183.*2M3*EXP< -R/FKi/< T23t2e.870) 

PAR-AV»C>EN1,'ZM3 

DI< I >-0M*2M3.PMft,':'5i.96 

t)K2)"r-AF»<2tl3t'<l .♦002 V28.96-I . ) 

OK 3>'2. •PAR»< 1 .-2M3,'2S .96 ) 
t)l< 4 >-QA*2H3*PAft,'28 . 96 
PI<9)«QHE*2M3«PAR/28.96 
IF<2-129. > 96,96,90 
96 CONTINUE 

AI>I05. 

FA 1-9. 806*9 A < I .♦AI/'6.356.'66E«3)**2> 

FAI-FA1/<TX^TI*<AI-I25. >*T3*< A 1 - 1 25 . T* * 3*T4 •< A I - 1 25 . )*^4) 

Pl-Z 

FC*l-9.e0665/<< I .♦t»l/*.35676*E*3>**2> 

IF<t>l-l25. > 45,45,50 

45 F0I»FPI/<TX*T1»<M-125. >^T3*<M-125. >**3^T4t< PI - 1 25 . )*>*4) 

GO TO 91 

90 FP1-FP1/<TX>A2»ATAN<TI*<P1-I29. )•< t . 44 . 5E-6*< PI - 1 29 . )**2,5)/A2>) 
T2-TX*A2*ATAN< Tl*<2-125. )•< 1 . 44 . 5E-* 2- 1 25 . >*42,5)/'A2) 

91 N-0 
PREV-0 

S0NE«<P1-A1 >*<FA14FPI )/2. 

81 N-N+l 

IF <N-M> 82,02,89 

82 NINT-2«4H 
STUO'O. 

PEL-<P1-A1 )/FLOAT<HINT> 

PO 83 I>t,NINT,2 
X1-A|4PEL*FL0AT<I ) 



PACE tS JAC OPT 81 LXl 2t04 PH HON., St SEP., tSSI 


6tt 



FXI-9.60669A< 1 . «XI /6 . 356766E«3 ><*2 > 

6t2 



IF<XI-I25. > 46,46,52 

6t3 


46 

FXI-FXI/<TX»TI*<X1-I25. )^T3*< X 1 - 1 25 . >**3*T4*< XI - 1 25 . >**4> 

614 



CO TO 63 

619 

52 


FXI»FXIATX*A8*ATAN<T1*<X1-I25, >•< 1 . *4 . 5E- 6«< XI - 1 25 . >**2.9>/A2>> 

616 

63 


STUO-STUO«FXI 

61? 



CUR-'S0HE*4. •0EL*6TW0 

616 



IF <EPS*ABS<CUR>-AB6': CUR-PREV); 64,65,89 

619 

84 


FREV^CUR 

620 



80HE-<90HE»CUR>/4, 

62t 



CO TO 61 

622 

65 


R-CUR/3. 

823 



00 41 I-t,9 

824 



OIT< I >»DI< I >*<T23/TZ>*» < 1 . ♦ALPHA< I )>*EXP< -EI< I )*R,'FK> 

629 


41 

CONTINUE 

826 



OENS-O 

827 



00 42 I-t,6 

626 



OENS-OEHS* '< I >*MT< I >ZAV 

629 

42 


CONTINUE 

830 



EM»OEN£*Av/<t>IT< 1>»PI T< 2 >*t>I T< 3 ) + M T< 4 )U> I T< 5 J + DI T< 6 > ) 

831 



OL-ALOGTtOENS> 

632 



AN -ALOCT<01T< 1 >> 

633 



A02>ALOCT<01T<2 >> 

634 



AO -ALOGT<OIT<3)> 

639 



AA •AL0CT<0IT<4 >) 

636 



ANE*ALOGT<PIT<S>> 

837 



IF<2-500. > 47,48,48 

638 


<7 

OIT<6>-IO.**<-6> 

839 


46 

AH«AL0CT<0IT^6>) 


640 

641 

642 

643 

644 

649 
646 C 
64? 

648 C 
646 

650 C 

651 C** 
892 C 

653 90 

654 

855 

856 
6-57 

858 

859 
660 
861 
862 

663 < 

664 

665 


AN >ANAXK-0., AN> 

A02>AMAXI(-0. ,A02> 

AO >AHAXt< -0. . A0> 

AA °ANAXt<-0.. AA> 

AHE-AtiAXK-O. ,AHE> 

AH -ANAXK-O,, AH> 

RETl.iRN TO CALLING PROGRAM 

RETURN 

CONTINUE CALCULATIONS 

8-TX+A2*ATAN< T I *375 . ■*< 1 . +4 , 5E-6*375 , • »2 . 5 VA2 ) 

D I< 6 >- 1 0 . ••< ?3 . 1 3-39 . 4»AL0CT< S >*5 . 5*AL0CT< S >*ALOCT< S > > 

At-500. / 

IF<2-500. > 49,60,60 / 

9 Al>7 

.0 FAI-9.e0665A< I . ♦At /6 . 356766E*3 > 

FA1*-FAI,'<TX+A2*ATAN<T1*<AI-125. >•< I ■ *4 . 5E-6*< At - 1 25 . >**2 . 9 )/A2 ) > 
Ol-Z 

IF<Z-500. > 61,62,62 
,| 0l"500. 

2 FDI«9.80665/<<: I . +D I .'6 . 356766E*3 > + *2 > 

FDI«PDI/'<TX*A2'*'ATAH< Tt ♦<()1-I25. >*< 1 . +4 , 5E-6+< D1 -1 25 . )**2,5VA2)> 
H-0 


RACE 19 

JAC OPTGi LXI 

2i 04 PM MON. , 21 8EP . , 

1981 

666 

PREV-0 



667 

SONE-<PI-AI )*<FAI+FD1 >72. 




86d 9t 

669 IF <N-M> 92,92,99 

070 92 NINT-2**N 

071 STUO=0, 

872 t>EL’<DI -«1 >/FLOflT<NINT ) 

073 t>0 93 I-I,NINT,2 

074 XI=A1*OEL»FLOftT< I ) 

675 FX1-9.6(i<65/<< 1 . ♦« I 76 . 356766E*3 )*»2 > 

676 FXI ■FXI7< TX»i^2*9T6N< T1*<XI-I29. )•< 1 . +4 , SE-6*< XI - 1 25 . )»*2.S VA2>) 
077 ?3 ST«0=$TU0<FXI 

076 CUH’ S0HE*4,*DEL*STW0 

079 IF <EPS*0BS<CUR)-ftBS<CUR-PREV>) 94,95,95 

600 94 PREV’CUR 

061 S0Me-<90NE+CUR>74. 

8t2 CO TO 91 

80 J 95 R«-CUR/3. 

804 TZ-TX*02*9TA1«TI*<2-I25. )*< I . +4 . 5E f 2- 1 25 . >*«’2,5>7A2> 

885 ir<2-500.) 63,64,64 

686 63 R— R 

867 64 [>IT<6>-t>I<6.>*<S7T2)*EKP<-EI<6>«R7FK> 

880 C 

889 C-** LOOP BACK FOR 8D0I1 lOHrtL CALCUL8TI0MS 

890 C 

891 GO TO 56 

892 C 

093 C*» RETURN TO C0LLIHG PROCfiPII 

094 C 

895 999 RETURN 

696 ENO 


FTN4X COHPILERi HP92834 RCV.2030 <800821 > 


*• HO WrtRHlNGS NO ERfiORS ** PROCROHi 2624 


COHMOWi <HONE> 



> 




PACE 20 FTN. 


OPTSi LXI 


2 1 04 PN NON., 21 SEP., 1981 


\ 


J 

:> 

■) 


897 
• 96 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 
919 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 
926 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 
949 

946 

947 

948 


SUBROUTINE SLV< DEH, ALT. KLAT. DAV > 

C** iUBROUTlNE '8LV' COMPUTES THE SEASOMAL-LAT I TUDI HAL •• 
c»* Variation of oensitv in the lower thermosphere < in •• 
€•• hCCOROANCE to L. JACCMIA in SAO 332. 1971. THIS AF- •• 
C** FECT8 THE DENSITIES BETWEEN 90 AND loOKM, THIS SUB- *• 
C«» ROUTINE HEED HOT BE CALLED FOR DENSITIES ABOVE I60KM.** 
C*» BECAUSE HO EFFECT IS OBSERVED. •• 
C** *• 
C»* THE VARIATION SHOULD BE COMPUTED AFTER THE CALCULA- •• 


C** T^RpN of DENSIVy DUE TO TEMPERATURE VARIATIONS AND THE** 
C** DENSITV <DEN) MUST BE IN THE FORM OF A BASE 10 LOG. ♦* 
C** NO ADJUSTMENTS ARE MADE TO THE TEMPERATURE OR CONSTI-** 
C** TUENT HUMBER DENSITIES .N THE REGION AFFECTED BV THIS** 


C** VARIATION. ** 
C*« »« 
C«* DEN « DENSITV <LOC10) ** 
C** ALT « ALTITUDE <KM) ** 
C** XLAT ■ LATITUDE <RAD> ** 
C** DAY • DAY NUMBER ** 
C** ** 


c 

C** INITIALIZE DENSITY <DEN> *0.0 
C 

DEN -0.0 
C 

C** CHECK IF ALTITUDE EXCEEDS I60KM? 

C 

IF <160 - ALT) 999,5.5 
C 

C** CONFUTE DENSITY CHANGE IN LOWER THERMOSPHERE 
C 

52- ALT > 90. 

X - -0,0013*Z*Z 
Y - 0.0172-DAY *1.72 
P - 8IN<Y) 

SP - 8 I N< XLAT) 

SP - SP-SP 
8 - O.Ot4*Z*tXP<X> 

D - S-P-SP 
C 

C— CHECK TO COMPUTE ABSOLUTE VALUE OF 'XLAT' 

C 

IF <XLAT) 10, 15.15 — 

10 D - -0 
15 OEN - D 
C 

C— RETURN TO CALLING PROGRAM 
C 

999 RETURN 
END 





I 


N 


PACE 21 9LV OPTSi LXI 


2 I 04 PM MOM. , 21 SEP . , 1991 


FTN4X COMPILERl HP92934 REV, 2030 <900921) 


I . 


•• NO UPPHIHCS •• HO ERRORS *• PROCRAMi 123 


COMMON I <NONE> 





) 

-I 


I 


J 


PACE 

22 

949 


950 

c** 

951 

c*» 

952 

c** 

953 

c*» 

954 

c** 

955 

c** 

956 

c»* 

957 

c** 

956 

c** 

959 

c*» 

960 

c** 

961 

c 

962 

c** 

963 

c 

964 


965 


966 

c 

967 


966 

c 

969 


970 


971 


972 

c 

973 


974 

c 

975 


976 


977 

c 

978 

c** 

979 

c 

980 


961 


962 


963 


984 


965 

c 

986 

c** 

987 

c 

988 


989 


990 


991 


992 


993 


994 

c 

995 

c** 

996 

c 

997 


998 



I^TN. OPTSi LXI 2tC4 PM MOH.. 2l $EP., 

SUBROUT IHE SLVH< OEM , PENHE , XLPT . SDA > 


SUBROUTINE 'SLVH' COMPUTES THE SEASONAL-LAT 1 TUMNHL 
variation of the helium HUMBER DENSITY <ACC'''»DIHO 
TO L, JACCJIA IN SAO 332, IS7I>. THIS CORRECTION 
IS NOT IMPORTANT BELOU ABOUT 500KM. 

DEN - DENSITY (LOGIC) 

DEHHE - HELIUM NUMBER DENSITY (LOGIC) 

XL AT - LATITUDE (RAD) 

SDA • SCRAP DECLINATION ANGLE (RAD) 

PERFORM CALCULATIONS 

DO ■ fO.**DEMHE 
A ■ O.S5*( SDA '0. 40COS07S) 

CHECK TO COMPUTE ABSOLUTE VALUE OF 'A' 

IF(A) 5.10,10 
5 A ■ -A 
10 B - O.S«XLAT 

CHECK TO COMPUTE ABSOLUTE VALUE OF 'B' 

IF(SDA) 15,20,20 
15 B - -B 

COMPUTE K.Y.DHE, ANO OEHHJ 

20 K - 0.7654 - B 

V ■ SIN(X) 

V > y*Y*y 

OHE- A*(Y - 0,35356) 

DEHHE - DEHHE > OHE 

COMPUTE HELIUM NUMBER DENSITY CHANGE 

D1 > t0.'**DENME 

DEL» DI - DO 

RHO- 10. ♦•DEN 

DRHO - (6.646E-24 >>*DEL 

RHO - RHO * DRHO 

DEN - ALOGT(RHO) 


RETURN TO CALLING PROCRAI 

RETURN 

END 


I 


iSdi 


FTN4X COMPILER! HP92834 REV, 2030 (B00821) 


rftdB 23 SLVM 


OPTSi LXI 


2 I 04 PH MOM, , 2t ^EP . , 


•• NO WrtPNINCS •• NO ERRORS •• PROORPMi 


1431 


COMMON . 


I 3i31 
< NONE > 




24 PTN. 


OPTSi tXI 


2 1 64 PM MOH, . 21 'sEP. 


1 'jiul 


999 BUnCK OPTfl 

1 000 »+***4««**«>^4-4* *f«* t f f**4i*«« 

I Oil C** TH1& IS THE BLOCK OATA FOR THE •• 

■002 C‘* 'JAC70' PROGRAM. •• 

1003 c******»»**********»************»*»'*** 

1004 C 

1005 C»» COMMON BLOCK BATA 
I 006 C 

1007 COMMON /EBATA/ I Vft , IBA , MtM HR, M I N , XM JB, F 1 0 , FI OB , G I , I LAT , ILNC, 

1008 . XLAT.XLNG 

1009 COMMON .■’FBhTA/ A< 300, 6 >, BENLC< 300 ), BEHSi' 300 >, BL< 300 >, EM< 300 >, 

1010 . T7^< 300 >, XLhTH 300 ), XI.ONGv 300 >,4‘' 3 )0 ) 

1011 ENB 


FTN4X COMPILER) HP92834 REV. 2050 <800021 > 

NO WARNINGS *> NO ERRORS ♦♦ PROGRAM! (HONE) 


BLOCK COMMON FBATA SIZEi 8400 

SLOCK COMMON EBATA SIZE! 19 


COMMON! (NONE) 


J 

'> 


& 





JAC70 

10042 

1342S 

ACI-091681 

MATPR 

13426 

15167 



TIME 

15170 

16257 



THE 

16260 

17363 



JAC 

17364 

24463 



SLV 

24464 

24656 



SLVH 

24657 

25103 



FDATA 

25104 

45423 



EDhTA 

45424 

45446 



OPEN 

45447 

4601 1 

92067- 

16125 

CLOSE 

46012 

46225 

92067- 

16125 

READF 

46226 

47216 

92067- 

16125 

FUME 

47217 

47510 

92067- 

1X301 

NOD 

4751 1 

47540 

2499S- 

1X107 

4SNVE 

47541 

47633 

92067- 

1X433 

RMRAR 

47634 

47676 

92000- 

1X025 

OVRD. 

47677 

47677 

92067- 

16125 

LURO 

47700 

50312 

92067- 

1X270 

REIO 

50313 

50437 

92067- 

1 X2 75 

SEiSN 

50440 

50455 

92067- 

1612? 

JRTTV 

50456 

5 054 3 

92067- 

1X2 9S 

ERRO 

50 54 4 

60633 

24990- 

1X250 

. ITOl 

50634 

50752 

24990- 

1X055 

4ALRN 

50753 

51 070 

92067- 

1X271 

ERO .E 

51 071 

51071 

24998- 

1X249 

.ASIN 

51 072 

51175 

24990- 

1X373 

.RTOI 

51176 

51310 

24998- 

1X063 

.EIO. 

5131 1 

52526 

24996- 

• X32l< 

FMTIO 

52527 

63756 

24990- 

1X320 

• OPH? 

53757 

54 002 

24990- 

1X325 

.FRAU 

54 003 

54106 

24990- 

1X324 

.EXIT 

54107 

54162 

24993- 

1X320 

. lOCL 

54163 

5-»264 

92020- 

1X3 05 

CODE 

54265 

54324 

24990- 

1X335 

.FMCV 

54 325 

56567 

24990- 

1X333 

.lOER 

56570 

56703 

24996- 

1X321 

,UFNP 

56704 

56716 

24998- 

1X296 

.FIO. 

56717 

57173 

24998- 

1X330 

.FJOI 

57174 

57253 

24993- 

1X3 22 

,RTOR 

57254 

57346 

24996- 

1X064 

.NXM1 

57347 

57503 

24998- 

1 X 11 0 

P.PAS 

57504 

57532 

92067- 

16125 

R.ai« 

57533 

57671 

92067- 

16125 

«OREN 

57672 

60046 

92067- 

16125 

RU4U6 

60047 

6C414 

92067- 

16125 

RUND* 

60415 

60537 

92067- 

16125 

LUTRU 

6054 0 

606 6 

92067- 

1 X3 08 

PNAME 

60647 

60714 

92068- 

1X035 

LOCLU 

60715 

60772 

92067- 

1X297 

LINEN 

60773 

61013 

92067- 

1X477 

PAU . E 

61 014 

61014 

24998- 

1X254 

. lOCN 

61015 

61054 

92028- 

1X327 


J^CCHIA '70 MOC'EL (AEEbM i>V&TErl> 


REV. 2001 ?9t0ie 
REV. 2001 P9I019 
REV, 2001 ?9I0I5 
REV 20t3 700731 
REV. 2001 75M0I 
REV. 2013 600129 
REV. 2013 761106 
REV. 1903 760526 
REV. 2013 791024 
REV, 2013 760316 
REV. 1903 760413 
REV, 2013 7901 18 
REV. 2001 771122 
REV, 2013 791017 
REV, 2013 770715 
REV. 2001 750701 
REV. 2026 600222 
REV. 2013 791230 
REV, 2026 600708 
REV. 2030 600618 
REV, 2030 S00603 
REV, 2070 600731 
REV. 2030 600731 
REV .2030,600731 
REV. 2026 600303 
REV. 2 026 600709 
REV. 2030 600731 
REV. 2030 600731 
REV. 2026 800708 
REV, 2030 300803 
REV. 2 026 600509 
REV. 2026 600303 
REV. 1903 740801 
REV. 1903 761214 
REV. 1903 7901 03 
REV. 1903 761003 
REV. 1903 760601 
REV. 2013 790223 
REV. 2013 771121 
REV. 2013 790226 
REV. 2013 790126 
REV. 2001 750701 
REV. 2030 800603 


22 R6GES RELOCATED .49 RAGES REQ'D 27 RACES ENA 6 PACES MSEC 

LlNKSiBP PROCPAMiLB LOADiTE COMMON:NC 
/LOADR! JAC70 READY AT 2; 08 PM MOH., 21 SEPT. 1981 


/LCADRi«END 


APPENDIX B 
PROGRAM JAC71 


ATSUKO COMPUTING INTERNATIONAL 
HUNTSVILLE, ALABAMA • USA 




B-1 


« 


PACE 


It 

3 

4 
9 
6 
7 

a 

fi 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 
49 

46 

47 

48 

49 
90 

51 
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«EMA< KD 8 TA> 

PPOCftAtl JAC71<3>,ACI-09I661 JACCHIA '71 HOPEL < 8 EEDA SVSTEN) 

C*»«**, 

C»* OESCftIPTIOHi 

c*« 
c*» 
c*» 

C** IMPUTSi 
C»* 

C** DhTP 8 ASE I 

C»* 

c«« 

c»* OUTPUTS) 

C** 

C-* WRITTEN BV) 

C** 

C»» 

c 

C»» COMHOH STATEMENTS 
C 

COMMON /EOfiTA/ I VR , lOA , MM, I HR , M IN , XM JD . PI 0 , F 1 OB , C I , ILAT , ILNG, 

. XtAT.XLNC 

COMMON/!<DATA/.\'iAT< 37 , 37 >, OENMAT< 37, 37 >, DENLOC< 37, 3/ >, HEMAT( 37,37 ), 
. HMAX37,37),02MAT<37, J7^.0M«T^37,37>^ jEflp< 37 , 37 ), 

. XN2< 37,37),UTMAT<37,37> 

COMMON /P0ATA7 A< 300, 6 ) , DENLG< 300 >, DENS< JOO >, t»L/ 300 ), EM< 300 >, 

. TZZ< 300),XLATT< 3 00>,XLOMGC 300 ) , 2< 300 >, ORHO I ( 300 >, 

. 0RH02< 300),DRH03v'300> 

C 

C** DIMENSION STATEMENTS 

C 

DIMENSION KBUF(I5> 

DIMENSION lDCe<;276>, JBUF<40>,NAME<3), IPAR<5> 

C 

C»* DATA STATEMENTS 
C 

DATA HAME,'2HJA,2HC7,2HID7 
C 

C** FETCH 'CRT' LOGICAL UNIT NUMBER, «• 

C*«** *****'*'«'*«•***’** *****«>ii«**«'*«***«i«i** 

c 

CALL RMPAR<IPAR> 

LU - IPAR'' 1 > 

C 

C** PRINT OUT BANNER PACE INCLUDING PROGRAM N,,ME AND DATE 
C 

CALL FTIME<KBUF) 

URITE<6, I07> 

107 PORMAT<“l"> 

DO 7 K-1, 10 

URITE<6,10e> <KBUF< I >, I.| , tS> 


PROGRAM 'JAC71' IS TME JACCHIA '71 MODEL 
WHICH WAS CONVERTED FROM THE UNIVAC 1106 
TO THE REEDA SySTEM. 

USER PROVIDES INPUT PARAMETERS VIA 'CRT'. 

DISC FILE 'JAC7ID' CONTAINS THE DaTA BASE 
FOR 'JAC71'. 

A MATRIX GRID OUTPUT IS GENERATED TO THE 
HP-2606 PRINTER. 

JOHN S. MICKEV <ACI) 533-7590 
MIKE DICKERSON <ACI> 533-7590 
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) 

'i 




J 

J 

■) 


87 »06 FORHAT< • FROCPAH JAC7I EKECUTEO AT i •,»5A2, 

86 * NASA.'HErr REEDA SYSTlH 

86 7 CONTINUE 

60 C 

61 ***.*.♦*•♦.*,••• 

62 C** ASK USER FOR 'INDEX VARIABLES'?? 

63 C»* II -- CEOHACNETIC INDEX 

64 C** 

68 C 

66 URITE<(.U. I 00> 

67 100 FORMAT( "ENTER CEOn.tCNET IC INDEX? <I-KP, 2-AP)? _" > 

66 READ<LU,*> II 

66 C 

70 C** ASK FOR JACCNIA DATA FILE? 

71 C 

72 669 UPITE<LU,666> 

73 666 FORMAT< "ENTER DATA FILEi _• > 

74 READ<LU,667> < NAHE< K >, K« I , 3 > 

78 667 F0RHAT(3A2> 

76 C 

77 C** OPEN 'JACXXX' DATA BASE DISC FILE 
76 C 

79 CALL OPEN< IDCB. lERR.NAHE, 0> 

60 IF< lERR.LT.O) URITE<LU.666> 

61 666 FORHAT<" ••• ERROR — FILE NOT EXISTING “) 

62 IF< lERR.LT.O) GO TO 669 
83 C 

64 C*« PRINT HEADER AND T I TLE 'INFOPMAT ION 

65 C 

66 URITE<6,109> < NAHE< K >, K> 1 , 3 ) , 1 1 

67 109 FORMAT< “I " PROGRAM NAME i JAC7I",X, 


66 . • 

09 . " data FILEi •.3A2,/, 

90 . •.//. 

91 ■ CEONAG INDEXi ",16,^, 

92 . - 


93 C 

95 €*♦ READ 'INPUT I' DATA VALUES ♦♦ 

97 C 

96 C*« SKIP 'INPUT!' HEADER RECORD 

99 C 

100 CALL READF< IDCB. lERR, ieUF> 

101 C 

102 C** READ 'ILAT' 6 'ILNC' 

103 C 

104 CALL READF< IDCB. lERR. leUF) 

I 08 CALL CODE 

106 READ< 1BUF.300> ILAT. ILNC 

107 300 F0RHAT<9X. 13, 10X. 13) 

106 C 

109 C*-* READ 'XLATT' ARRAY UP TO 'ILAT' POINTS 
!I0 C 

III DO I I-l .8 


) 



PACE 3 JAC7I OPTS I LXI 


2t 13 PM MON , 31 ■i£P. , l«>SI 


I 



113 J - < l-l >«I0 ♦ I 

M3 CALL PEAOF< IOCS, lEAP, lOUP > 

M4 CALL COOE 

M5 *EAO< IS0P.30I > <XLATT<X>,K»J, J*9> 

MS 301 FOAMAT< lOK, tO<F5. 0, IK>> 

\7 I CONTINUE 

MS C 

MO C*» PCA5 'XLONC' AftPAV UP TO 'ILNC' i^OINTS 
120 C 

131 00 3 1-1.9 

132 J-<I-t)»IO*l 

123 CALL REAC>F< It'CB, lEPP, leUF> 

124 CALL COOE 

125 R£AO< l6UF,30t > < XLOHG< »0. K- J, J»9 > 

I2S 3 CONTINUE 

ISP c 

120 C** SKIP •INPUTI' END RECORD 
139 C 

130 CALL READF< lOCB, ItRP, lOUF > 

131 C 

132 C** »**>«*****-***«*ttv* t* «****•«* **i.*««»*** 

133 C»* ASK USER FOR NUMBER OF CASES 'NCASE' •• 

134 C 

135 C 

•34 URITECLU. 102) 

137 102 FORMATC "ENTER NCASE i _" > 

130 READS LU,-> NCaSE 

• 30 C 

•40 C-* LOOP TO PROCESS 'NCASES' 

I4t C 

•42 DO 104 INC- I, NCASE 

143 C-*-'****--**-*-*-*--*-**-*'"*-**-*-***** 

144 C— READ 'INPUT? • DATA BASE VALUES. *« 

145 C-* *-****•--***•*•***•***-«'«****• •*****• 

144 C 

• 47 C 

•48 C** SKIP '1NPUT2' START RECORD 
149 C 

•50 CALL READF< IDCe.IERR.IBUF) 

181 C 

152 C-* READ IZ.Z.XNDJ.FI O.FI OB, I. 01 
183 C 

•94 CALL READF< IDCB, lERR, IBUF) 

188 CALL CODE 

154 READ< IBUF.302) IZ, Z< I >, XM JD, F I 0. F 1 OS. Cl 

•87 302 F0ftMAT<4X.I3,3X.F6,l.4X,F6.l.5X.F4,l,OX,F6.l,4X,F4.l > 

• 58 C 

• 89 C*» READ IVR.MN.IDA, IHR, I. MIN 

• 40 C 

141 CALL READFC IDCB. lERP. leUF) 

142 CALL CODE 

143 READ< 1DUF.303> IVR. MN , IDA. IHR. MIN 

144 303 F0RMAT<PX,14,4X.I2,5X,12,5X.I2,9X,12) 

148 C 

146 C— READ ITEMP, IXN2, 102, 10, lA, IHE. IN, lEM 
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4 


U7 C 

148 CALL RE4DF< tOCi, lEftR, I8UF> 

188 CALL CODE 

• 70 ACA(*< I8UF, 304 > I T£nF, INNS . 102. 10, I A, I HE , IN, lEH 

171 304 F0RNAT<«N.I3,4K.I3.SX.|3,4K,I3.4K,I3.SX.I3,4»<,I3.9K.I3> 

172 C 

•73 C*« REAP IDEN t IPLOG 

• 74 C 

179 CALL REAOFCDC*. lERF. I6UF) 

•70 CALL COPE 

•77 NEAP< IBUF.309> IPEN. lOLOC 

178 305 F0RHAT<8»<,I3,7X,I3) 

• 7* C 

•80 C*« INITIALIZE XHJO - 0.0 0 IZ > I 
181 C 

•02 NHJP -0.0 

•03 IZ - 1 

• 84 C 

109 C*» INITIALIZE J COUNTER - 0 

100 C 

• 07 >0 

• 08 C 

109 €•♦ LOOP TO PROCESS 'KLAT' DATA 

• 90 C 

•91 DO 202 III-I . ILAT 

• 92 C 

•93 C»* LOOP TO PROCESS 'XLONC' DATA 

• 94 C 

•95 DO 201 II-1.ILNC 

• 90 XLAT»KLATT< II I > 

• 97 XLNC -XLONCdl) 

190 C 

199 €•♦ LATITUDE — LT, LONGITUDE -- LD 

200 C 

201 DO 200 i-I.IZ 

202 J-J41 

203 C 

204 C** CHECK J COUNTER EXCEEDS 30 ? 

208 C 

200 IF< J-30>92,92,9I 

207 C 

208 C** RESET J COUNTER > 0 
.209 C 

210 51 CONTINUE 

211 J-0 
2t2 C 

313 C*« CALL 'THE' 8UDR0UTIHE 
214 C 

2t9 92 CONTINUE 

210 DRHOI - 0. 

217 DRH02 - 0. 

219 DRH03 - 0. 

219 DEN ■ 0. 

220 CALL THE<MN. IDA. IVR, I HR , MIK, XM JD, XI.AT . XLNC , SDA, SNA, DO , DV ) 

221 C 


PACE 


222 

223 

224 

229 
22 * 
227 
22« 
22* 

230 

231 

232 

233 

234 

235 
234 
237 

236 

239 

240 

241 

242 

243 

244 

245 
244 
247 
24t 

249 

250 

251 

292 

293 

294 
299 
294 
297 
299 
299 

240 

241 

242 

243 
264 
249 

244 
247 
244 
249 

270 

271 

272 

273 

274 

275 
274 
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C** CALL 'TIN7' iUOAOUTlNC 
C 

YDAY ■ DO 

CALL TINF(Z< I >.r I 0,r I Ofi.CI .MLAT.SDA, ^HM.OV, 1 1 , TC.OAHO?) 
DFiHOSU) > [IAN03 
T-TE 
C 

C»* CALL 'JAC' SUE ft 01 TIME 
C 

CALL JAC<2< I >,T,72Z< 1 >,A< I, I ),A< l,2>,A< t,3>,A< l,4>,A< l,9i, 
<EN( t >,DEN5< I >.0L< I > > 

DEN > 0L< I > 

C 

CALL SUDftOUTIHE 'SEAN 
C 

CALL SEAHIDV.DAHOI ,Z< 1 >> 

DftHOK I > ■ DftHOI 
C 

C*» INITIALIZE VAftlABLEI 
C 

ZZ"Z< 1 > 

ir<ZZ-l70. >20,20,90 
C 

C** CALL '6LV' SUEROUTIHE 
C 

20 CALL tLV<DftH02,ZZ,NLAT, YDAY) 

DftH02< I > > DftHOZ 
CO TO 40 

50 IE<ZZ-500. >40,40,30 
C 

C** CALL 'SLVH' SUBROUTINE 
C 

30 CALL SLVH<DEN,A< I,5),XLAT,S0A> 

40 CONTINUE 
OL< I >-DEN 

DL< 1 >-DL< I >*DRH01< I >«DRH02< I )*C<ftH03': I ) 
f»ENS< I ) - I0.•♦DL< I ) 

XLAT-XLAT*<97 ,24577951 ) 

C 

C*« CONftUTE DENMAT< 11,111 > 

C 

DEHNAT(II,1II> - DEH3<1> * 1000. 

TENf*< II, m ) • T2Z< I > 

XN2< 1 1 , 1 1 1 > - A< 1 , 1 > 

02HAT<I1.III> - A<l,2> 

ONAT< II, III > - A< l,3> 

AHAT< 1 1 , 1 1 1 > - A< 1 , 4 > 

HEHAT< II, 111 > > A( I,5> 

NNAT<n,Ill> « A<1,6> 

UTHAT(II,m> * EH<I> 

DENLOG< 11,111 > - DL< I > 

200 CONTINUE 

201 CONTINUE 

202 CONTINUE 
C 




A< l,4>. 



PAGE 

6 

IAC7I 

OPT«i 

1 

LXI 

2il3 PM 

277 

C»* 

PEREORM MATRIX 

PRINTOUT 

27B 

c 






279 


IE< 1TE.1P.NE, 

0) 

CALL 

HATPRCD 

290 


IE< 1X1)2 

.NE. 

0> 

CALL 

MATPR<3> 

29 1 


1E< lOI' 

.NE. 

0> 

CALL 

HATPR<4> 

262 


IE< 10 

.NE. 

0> 

CALL 

MaTPR<5) 

293 


ir< lA 

.NE. 

0> 

CALL 

MATPR<6> 

294 


IE< IHE 

• NE 

0> 

CALL 

MA )PR< 7) 

265 


1E< IN 

NE. 

0> 

CALL 

MATPR<e) 

296 


1E< lEN 

.NE. 

0> 

CALL 

MATPR< 9> 

297 


IE< IDLOC 

NE. 

0) 

CALL 

MATPR< 10) 

266 

lO*! CONTINUE 





26* 

c 







C*» PS'Cit.KrtM 'JAC7I' COMPLETED 
^9t C 

292 999 STOP 
2S>3 END 
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294 «Etin<KDATA> 

295 SOjfcOUTIHE t1ATPR<:P> 

296 C*»»* 4 *** 4**444* 4 *** 

29? C*» SUOROOTIHE MATPR' PERFORMS THE PPIMTOUT OF •• 

296 C** THE SPECJFIEP MPTRIX. «* 

299 C»*4*4***4***4444*4*'4*4**44*444**f**44#444*4444**** 

3C0 C 

301 C»* COMMON STRTEMEHT8 

302 . 

303 COMMON ,'EOPTR/ I Yft , I DA , MM , I HR , N I H. XM JO , F 1 0 , F I OB , G I , I LHT , I LNC , 

304 XLAT.XLNC 

305 COflMOM/XDATH/AMAT^ 37 , 37 > , C>EMMAT< 37, 37 ), [>EHLOG«. 37, 37 ), MEMATt 37, 37 > 

306 . HMATt37, 37), 02MAT<37,37>,0tlAT< 37,37 J.TEMPC 37,37), 

307 . XN2< 37,37), UTMmT<37.37> 

306 COMMON XF^jaTA/ A< 300, F. ) , 0EHLC< 300 >, 0EHS< 300 >, 0L< 300 > , EM< 300 >, 

309 . T22< 300),XLATT< 300>,XLOMG< 300),2< 300 ), ORHOK ,’00>, 

310 . 0RH02< 300),OI<H03<300> 

311 C 

312 C44 OIMENSION STATEMENTS 

313 C 

314 OIMENSION IHEA0(9,10> 

315 C 

316 C** DATA STATEMENTS 

317 C 


318 

DATA IHEAD/2HPE,2HNS,2H1T 

,2HIE 

,2HS 

,2H<K, 

2HG/ 

,2HM7. 

2H •/ 

4 

319 

2HTE,2HMP,2H. 

, 2NPE 

,2MC. 

,2H K, 

2H 

,2H 

2H 

4 

320 

. 2H<N,2H2),2H 

-2H 

,2H 

,2H , 

2M 

,2H 

2H 

4 

321 

. 2H(0,2H2),2H 

,2H 

,2H 

,2H 

2H 

,2H 

2H 

4 

322 

. 2H<0,2H) ,2H 

,2H 

,2H 

-2H , 

2H 

, 2H 

2H 

4 

123 

2H<A,2H) ,2H 

,2H 

,2H 

,2H 

2H 

,2H 

2H 

4 

324 

. 2H<H,2HE ,',2H 

,2H 

,2H 

,2H , 

2H 

,2H 

2H 

4 

325 

2H<H,2H) ,2H 

2H 

,2H 

,2H , 

2H 

,2H 

2H 

4 

326 

■ 2HME,2HAN,2H M 

,2H0L 

,2H U 

,2HT , 

2H 

,2H 

2H 

4 

327 

. 2HL0,2HC ,2Ht-E 

,2HN 

,2H<C 

,2HM/, 

2HCM 

,2H3> 

2H 

/ 


326 C 

329 C** COMPUTE NCP 

330 C 

331 NPC « ILAT X 7 

332 C 

333 C*« LOOP FOR NCP TINES 

334 C 

335 IF<MOO< ILAT,7) ,NE. 0) NPC » NPC ♦ I 

336 DO 300 I I-l ,NPC 

337 ISTR - < II - 1 > • 7 ♦ I 

336 ISTP ■ ISTR ♦ 6 

339 IF<I6TP ,CT. ILAT) ISTP » ILAT 

340 C 

341 C*H)R1TE HEADER 

342 C 

343 URITE<6, 700 0) < IHEADi I , IP >, I- I , 9 >, 1 1 , lYft, IDA, MN, IHR , MI N, !<M JD, F I 0, 

344 1FI0B,CI,Z< 1 ) 

345 7000 FORMAT< INI ,29X,9A2, SIX, "PACE “,12,//' 

346 IIX,"YR « ",I4,3X,“DAV « ", 12, 3X, "MONTH « " , 12, SX, "HOUP • ",I2,3X, 

347 2"MIN « ", I2,-1X, "XHJO = “ , F9 . 0, 3X. "F 1 0 = “,Ff 2,3.S, 

348 3"FI0B ' ",F6,2,3X, “Cl - " , F6 . 2/ 1 X, " ALTI TUOE ”,F7,I) 





» 
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ii\3 PH HOH . , 2 


■) 

) 


I 


34» 

390 

391 

392 

393 
354 
399 
336 
357 
399 

359 

360 

361 
712 

363 

364 

365 

366 

367 

368 
368 

370 

371 

372 

373 

374 
379 

376 

377 

378 


C 


C** PRINTOUT 'XLATT* ARRAV 
C 

WRITE<6,700I ) <XLATT< I >, I-ISTR, I$TP> 

7001 FORMAT< IH0,30X,*<-SOUTH> LATITUDES <*HOPTH>“7 
I7<F5, 0,5X)> 

UPITE<6, 7003) 

700: FORMATTtH , •( -WEST )V I X, "< ♦EAST >*/ > 

C 

C*» PRINTOUT 'XLONG' ANPAV 
C 

DO 250 J-I.ILNC 

IF<IP.EO.I> WRITE<6.7002) XLONG< J ) , < DEHT:aT< J, 
IF<IP.EQ.2> WRITE<6. 7002) XLONC«'J>,< TENP< J, 
IF<1P.E0 3) URITE<6,7002> XLONG<J>,< XN2< J. 
IF<IP.EC 4) WRITE<6, 7002) XLONC<J>,< 02MAT< J, 

if<:p,eg.s) wftrrE<6,70O2) xlonc<j>,< ohat<j, 
IF<IP.EO,:> WR1TE<6, 7002.) XLOHG<J),< AMAT< J, 
IF<IP.E0.7) WRITE<6, 7002.1 XLONC<J),< HEHAT<J, 
IF<IP.EC»,8> WRITE<6,7002> XLOHC<J),< HMmT< J, 
IF<IP.E0.9> WRITE<6,7002) XLOHCTJ),< UTl'IAT< J, 
IF(IP.EQ.IO) WRITE<6,7002> XLONC< J >, < DENLOG< J 

7002 FORHAT<1H , F4 . 0, 4X, 7E 1 0 . 3 ) 

250 CONTINUE 

300 CONTINUE 


C 

C** RETURN TO CALLING PROGRAM 
C I 

RETURN 

END 
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IX, “LON,", ex. 


I ), I-ISTR, ISTP) 

I ), I-ISTR, ISTP) 

I >, I-ISTR, ISTP) 

I ), I-ISTR, ISTP) 

I ), I-ISTR, ISTP) 

1 ), I-ISTR, ISTP) 

I ), I-ISTR, ISTP) 

I ), I-ISTR, ISTP) 

I ), I-ISTR, ISTP) 

, I ), I-ISTR, ISTP) 
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3 

J 


379 

360 

361 

362 

363 

364 

365 

366 
363 
366 
366 
360 
331 

362 

363 

364 

365 

366 

367 

368 
396 
400 
40t 

402 

403 

404 

405 
4 06 
407 

406 
406 
410 
4M 
412 
4t3 
414 
419 

416 

417 
416 

419 

420 


C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c** 

c 


c 

c** 

c 


SUB60UTINE T IHF< Z. F I 0. F I 06, Cl , XLAT , SDA, SHA, OV . I I , TE,bRHO> 


SUBROUTINE 'TINF' CALCULATES THE EXOSPHERIC TEMPERATURE 
ACCORDING TO JACCHIA 6A0 NO. 313, 1670. 

FtO - SOLAR RADIO NOISE FLUX (XE-22 UATTS/M**2> 

FI 06* 61 -DAY AVERAGE FIO 

GI • GEOMAGNETIC ACTIVITY INDEX 

LAT " GEOGRAPHIC LATITUDE AT PERIGEE (IN RAD > 

SDA - solar declination ANGLE (IN RAD > 

SNA - SOLAR HOUR ANPE 

DY - D/Y (DAY NUMBER, ■'TROPICAL YEAR); 1 

11 « GEOMAGNETIC EOUATION INDEX! 1 --GI-KP, 2--CI-AP. 

12 ■ DIURNAL EOU INDEX < 1 --R( KP >, 2- -R( F 1 OB >, 3-R< AVC ; , 
RE - DIURNAL FACTOR KP.FtOB.AVC. 

CONSTANTS -- C-30LAR ACTIVITY VARIATION, 

-- BETA, ETC. - OIURNAL VARIATION, 

— D’CEOMAGHETIC VARIATION. 

-- E-SIMtANIOJAL VARIATION. 


C 

c** 

c 


DATA STATEi.'^NTS 

DATA C1,'379.0/ 

DATA C2,''3.24/ 

DATA C3/I .30,^ 

DATA Pt/3. f4tS9/ 

PERFORM CALCULATIONS 

CON - pi/teo, 

BETA- -37.0-CON 
GAMMA- 43.0-CON 
P - 6.0-CON 

XH - 2.2 

XNN - 3.U 

R - 0.30 

INITIALIZE GEOMAGNETIC VARIATION VARIABLES 


421 

Dl 

■ 

26.0 

422 

D2 

■ 

0.03 

423 

D3 

■ 

1.0 

424 

D4 

m 

100.0 

425 

D5 

m 

-0.06 

426 

06 

m 

14.0 

427 

D7 

m 

0.02 

426 

06 

m 

0.012 

426 

09 

m 

1 .2E-5 

430 

DRHO 

- 0.0 


431 C 

432 C 

433 C-- 


SOLAR ACTIVITY VARIATION 


I 
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' 434 C 

439 TC Cl ♦ C2*FI09 ♦ C3*<EI0 - FI0B> 

436 C 

' 43F C«* DIUPHAL VAPJATION 

430 C 

43? ETA « 0.5«ABS<KLAT - SPA) 

' 440 THETA - 0.5»ABS<XLAT ♦ SPA) 

441 TAU - 6HA ♦ BETA ♦ P*SIN<SHA ♦ CAMMA > 

442 TPI«2«PI 

443 tF<TAlO 210.230,230 

444 210 JF<TAIUPI> 220,250,250 

445 220 TAU=TAU*TPI 

446 CO TO 210 

443 230 1F<1hU-P1> 250,250,240 

446 240 TAU-TAU-TPI 

449 GO TO 230 

450 250 CONTINUE 

451 Al »<S1N<:THETA))«*XM 

452 A2 -<C0S<ETA)>'»*XM 

453 A3 ■<COS<TAU,''2. ))**HNN 

454 61 ■ 1,0 4 Rt^AI 

455 B2 -<A2-AI )/*< I . ♦ R*AI > 

456 TV - Bl»< I . ♦ R*B2*A3> 

457 TL ■ TC*TV 

450 C 

499 C** CEOHACNETIC VARIATION 

460 C 

461 IF<2 - 170. ) 30,30.40 

462 30 TC > D6*GI * t>7*E)<P<CI> 

463 ORHO - P8»GI ♦ D9*b!<P<CI) 

464 CO TO 70 

465 40 CONTINUE 

466 IF <11-1 > 50,50,00 

46? so TC - PI'tGI ♦ D2*Ei<P<GI) 

466 GO TO 70 

466 60 TC - D31-CI ♦ D4*< I -EXP< DStCI ) ) 

470 70 CONTINUE 

471 C 

472 C** EXJSPNERIC TENPERATURE 

' 473 C 

474 TE - TL ♦ TC 

. 475 C 

) 476 C»* RETURN TO CALLING PROCAAH 

4’7 C 

. 478 RETURN 

-7 479 ENP 

0 

FTN4X COMPILERi HP92834 REV, 2030 <600621) 

) 

»* NO WARNINGS NO ERRORS » *• PROGRAM i 465 COMMON: <NONE) 


I 

f 



pace h ftn. 


OPTS 


LXI 


Si 13 PM MON. , St SEP. , ISSI 



4t0 SUePOOTlNE TME< MN, IDP , I VR , JHP , MIN. XM JO, XL AT , XLNG , SON, SNA, 00 ,0V > 

4tl C 
46S C 
493 C 
404 C 

495 C 
404 C 
49? C 
499 C 
499 C 

490 C 

491 C 

492 C 

493 C 

494 C 
499 C 
49i C 
497 C 

496 C 

499 C 

500 C** OINENSIOH STATEMENTS 

501 c 

902 OIMENSION IDAYCIS) 

503 C 

904 C** data STATEMENTS 
909 C 

900 DATA IOAV,'3I,2S,31,30,3I,30,3I,3I,30,3I,30,3I/ 

50? DATA VEAR/’305.2422,' 

909 C ^ 

509 C*+ SET CONTSTAKTS 

5tO C 

911 XLAT-XLAT. 5?.29''r795l 

512 YR-IVR 

9t3 J»lYR-<»< Ir«,'4> 

914 lF<J>tO,5,IO 

SIS 5 IDAY<2>-29 

916 10 CONTINUE 

517 IF <MN-I> 3,3,4 

519 3 00«I0A 

519 CO TO 6 

920 4 KE-MN-I 

921 IO«0 

522 00 20 t-l,KE 

923 ID - 10 ♦ lOAYfl) 

524 20 CONTINUE 

525 ID - 10 « lOA 

920 00 - 10 

527 6 OY ■ OO/YEAR 

529 C 

529 C** COMPUTE MEAN JULIAN DATE IF .YMJO - 0 

530 C 

531 IF<XHJD> 30,25,30 

532 25 XMJO « 24.39056. ♦ 365 . •< VR- I 960 . > ♦ 00 

533 LOO - <IYR - I965V4 

934 XMJO ■ XMJO ♦ LOO 


• 

SUBROUTINE 'THE' PERFORMS THE CALCULATIONS OF THE SOLAR DECLI- 
NATION ANGLE AND SOLAR HOUR ANGtE. 



INPUTS 1 

MN ■ 

MONTH 


• 


lOA - 

OAY 


• 


lYR - 

YEAR 

• • 

* 


IHR - 

HOUR 

• • 



MIN • 

MINUTE 


« 


XMJO- 

MEAN JULIAN DATE <IF«0 THEN XMJO IS CALCULATEOJ 




XLAT- 

LATITUDE (INPUT-GEOCENTRIC LAT’TUOE) 




XLNG- 

LONGITUC>E< INFUT-GFOCENTRIC LOH ^1 TUOE , - 1 80 , ♦ 1 SO > 


« 

OUTPUTS 1 

SOA - 

SOLAR DECLINATION ANGLE (RAO. 


m 


SNA - 

SOLAR HOUR ANCLE (RAO) 


• 


00 • 

OAY NUMBER FROM 1 J(M . 

• • 

• 
• 6 


OY ■ 

OO/TROFICAl. YEAR 




» 


0 


% 


I 


PACE 12 THE 0PT9i LMI 2iO PH HON,, 21 9EP.. 1901 


939 30 FHJD - KHJO - 2439639. 

930 C 

93? C*» COHPUTE GREENWICH HEAH TIHE IN HINCTES GHT 
930 C 

939 KHR > I NR 

940 KHIN - HIN 

941 GHT - 60*KHft ♦ XMIN 

942 C 

943 C** COHMITE GRFEMWICH MEAN FOSIHON - CP < IN '■EG) 

944 C 

949 XJ - <XMJD - 2419020, 0)/< 3«929. 0) 

946 At-99. 6909833 

947 R2 - 36000.76854 

948 R3 - 0 00036>ii0 

949 R4 - 0.2906844? 

990 OP - RI ♦ A,2*H3 ♦ A3*XJ*XJ ♦ A4«CHT 

S9I N • GP/360. 

992 XN - N 

993 CP - CP - XM*360. 

954 C 

555 C«* COHPUTE RIGHT ASCENSION POINT - RAP < IN DEG) 

956 C 

997 C** 1ST CONVERT GEOCENTRIC LONGITUDE TO DEG LONGITUDE - WEST NEC ♦ EAST 
558 C 

599 IPACT - XLNG.^ie0. 

960 XFACT - IPACT 

561 XLHC-XLNC-360. ♦XFACT 

962 C 

963 RAP - CP ♦ XLNG 

564 N - RAP/360. 

569 XN •• N 

966 RAP - .TAP - XN*360. 

567 C 

568 C** COHPUTE CELESTIAL LONGITUDE - XL9 < IN RAD) - -ZERO TO 2PI 

969 C 

970 Bt > 0.017203 

571 B2 > 0.0339 

572 B3 - 1.410 

, 973 VI - B1*FMJD 

’ 974 XL8 ■ yi ♦ B2*8IN<VI) - 83 

975 TPl - 6.23318 

, 976 N ■ XL8/TPI 

’ 977 XN ■ H 

978 XL8 - XL8 - XN*TPI 

979 C 

980 C»* COHPUTE SOLAR DECLINATION ANCLE - SDA < IN RAD) 

98t C 

_ 982 84 - <TPl/360. >*23.49 

J 583 SPA - ASIN<SIN<XLS>*SINC84>) 

584 C 

585 C*" COMPUTE RIGHT ASCENSION OF SUN - RAS < IN RAD) - -ZERO TO 2PI 

) 986 C 

587 RAS - ASIN< TAN<SDA>.'TAN<84>> 

see c 

' 589 C** PUT RAS IN SAME QUADRANT AS XLS 


i 



PACE 1 3 


THE 


OPT 81 LMI 


2t13 PH HOH. 


990 C 
091 


PI - 3.14199 

•S92 


PI2 ■ PI/2. 

i.93 


PI32- 3.*PI2 

994 


RA 6 - ASSTRaS) 

999 


TEMP > AB 6 (KLS> 

996 


IF<TEMP - PI2) 130. 130. 100 

997 

too 

IFTTEMP - PI) 105,109.110 

996 

109 

RA9 » PI - RA 8 

999 


CO TO 130 

400 

110 

IF< TEMP ‘ PI32> 1 19. M 9. 120 

601 

1 19 

RAS ■ PI ♦ RA 6 

602 


GO TO 130 

603 

120 

RA 8 • TPI - PAS 

604 

130 

IF (XLS) 139. 140. 140 

609 

139 

RAS - -RAO 

606 

140 

CONTINUE 


607 
600 
too 
610 
6tl 
612 
613 
6M 
6tS 
616 
617 
616 

619 

620 C*« RETURH TO CALLING PPOCftHM 

621 C 

622 RETURN 

623 ENO 


C 

€•• COMPUTE SOLAR HOUR ANCLE - 6HA < IN OEG > 
C 

$HA - RAP*<Pl.^ie0. > - RAS 
IF<SNA> 210.230.230 
210 IF(SHA«P1> 220.290.250 
220 SHA«eHA«TPI 
CO TO 210 

230 IF<8HA-PI> 250,250.240 
240 SHA-SHA-TPI 
CO TO 230 
200 CONTINUE 


FTN4X COMPILERi HP92834 REV. 2030 <800321) 


•• NO WARNINGS •• NO ERRORS •* 


PROGRAM I 


580 






21 SEP.. 1901 


COMMON I <NONE> 




f-AU 1 4 t-TH. 0»>T«i LMI 


2i 13 f‘H HOH. , H 


•itf-.. tMt 


tS 4 

425 

624 

42? 

429 
425 

430 
63t 

432 

433 

434 

435 

434 
437 

439 

435 

440 

44 1 

442 
643 
444 
449 
444 
647 
449 

449 

450 
691 
492 
693 
494 
695 
654 
497 
458 


c... 

C»* 

C** 

C** 

C*« 

C** 

C*» 

C** 

c** 
c •• 
c*« 
c»» 

c** < 
c 

c** 

c 

c 

c** 

c 


SUeROUT 1 NE JAt< 2 , T , T2 , AN , A02 . AO , AA , AHE . AH , EN , OEMS , OL > 


C** 
C + ^ 


SUBROUTINE ' JAC ' PERFORHS THE SIMPSOH6 Rl'uE OUAfiRA- 
TURE <SR04> INPLEMEMTEO BV C. F. KUNCIR. 

A - EOUER UNIT OF IHTECRATION 

0 • UPPER LIMIT or INTEGRATION 

FUNC ■ INTFGRANO FUNCTION SUBPPOCRAM 

EPS > RELATIVE ERROR CONVERGENCE CRITERION 

M - MAXIMUM NUMBER OF IMTECPATI0N6 

R - RESULT OF IN ftURAT ION 

N - NUMBER OF INTET^RATIONS REOUIREO fO FIND R 


DIMENSION STATEMENTS 

DIMENSION ALPHA<4),EI<6),0I<6),B<7),DIT<6) 

DATA STATEMENTS 
DATA 00/ 90./ 

DATA ALPHA/0. 0. 0. 0, 0.0, 0.0. -.390, 0.0/ 

DATA AV/6.02257E23/ 

DATA E1/2B. 0134,31 ,9949, 19.9994,39.949, 4 . 0024. I . 00797/ 

DATA B/20. 82678. -.074 0046, .Oil 94 04, 4. 511 02E-4 , -B . 21 9947E-4, 
. I .076609E-5,-6.974436E-7/ 

DATA TN/.7BII0/ 

DATA 002/. 20965/ 

DATA OA/. 009343/ 

DATA OHE/1 .2B9E-05/ 

DATA FK/8. 31432/ 

SET VARIABLES 


659 

ALPHAC I > - 0.0 

440 

ALPHA<2> - 0.0 

441 

ALPHA(3> - 0. 0 

662 

ALPHA< 4 

- 0,0 

643 

ALPHA<5) ■ -.38 

664 

ALPHA<6> - 0.0 

665 

AV - 6.02257E23 

666 

EI< 1 > « 

2S. 0134 

667 

EI<2> - 

31 .9966 

668 

EI<3> - 

15.9994 

669 

EI<4> - 

39.948 

670 

EKS> - 

4 . 0026 

671 

EI<6> - 

1 . 00797 

672 

B< 1 > - 

28.62678 

673 

B<2> - 

-0.0740066 

674 

B<3) - 

-.01 19406 

675 

B<4 > - 

4,51 I02E-4 

676 

B<5> - 

-e.21B947E-6 

677 

B<6> - 

1 .075609E-5 

676 

B<7> - 

-6.974436E-7 


Of>T(> LMI 


2i 13 PH NON. , 21 OEP. , 1^01 




iSi&£ I S 


*?* ON * .7*1 l« 

«00 002 « 

Olt OA > .00^343 

«42 ONE > €. 

003 FK - 0.31432 

<04 C 

605 C«* PtfcrORH CALCtn AIIOHf. 

600 C 

687 T1 - T 

606 TX-371 .66 78 ». U5ies(/503*TI 264 . lfiCi46»e:<P< - . 0 02 1 t.22 2>*T I ) 

606 A2-2.*< T -TXV3. MIS'iiOS 

660 OIT<6>>0. 

661 H-IO 

692 EPS •.0001 

693 n«l .9*< TX-103. V39. 

694 T4-3. •< TK-103. -2. •ri»35./3. >/< 35 **4) 

695 T3»-n/<3.*35.*»2>*4.*r4»35./,'’. 

696 T:-TX4TI*<2-I25, )*T3«', 2- I 20 . ) • •3»T4»t 2 1 25 . )**4 

697 IF <2-100. > 43,43,40 

690 43 22 - 2 - 00 

699 EN»B< t >»eC2)*22«e<3)*Z2'* f2^B<4 )*72**3*e<:5)«22»*4*e<6 J<22 + *5 

700 l♦B<7)•22••6 

701 0-2 

702 70 CONTINUE 

703 A-90. 

704 FA*0< I >*B< 2)»< A-Oe >*B< 3 >*( A-QO 4 )♦< A-QO >**3*B< 5 >♦< A 00 >**4 

705 l♦B<6>♦< A-0Q>**3 *B< 7 )•< A -09 )* *6 

706 FA“FA»9 .e0655A< I . ♦ A/6 . 35t766E + 3 >**2 > 

707 FA'FA2<TX*T1»<A-|25. )*T3KA-t25. ,**3 +T4 *< A - 1 25 , )• *4 ) 

708 FD*B< I )+E<2>*<D-00)*e<3)KO-f!0)**2«B<4 )*<t>-0Q >*'t3*B<5 )*<t»-Q0)<*4 

709 l♦IS(6>»<£>-0Q .■>*■*9 *Bv 7 )*< P- 00 >-»«6 

710 FP-FD»9.0 0665/<< I .*0/6 356 766E *3 )*»2 > 

7M FP«FPA TX^n*<P-l25. )*T3*<P-T25, )**3 *T4*< t>- 1 25 . )**4 ) 

7t2 C 

713 C** INITIALIZE COUNTERS 

714 C 

715 N-0 

716 PREV-0. 

717 S0NE»<0-A)»<FA*FD.V2. 

710 71 N-N*l 

719 IF <N-H> 72,72,75 

720 72 N1NT»2-*N 

721 8TUO-0. 

722 0EL-<0-A>/'FL0AT<NINT> 

723 DO 7-3 I-I,N:NT,2 

7S4 X-A*PEL»FLOAT< I > 

725 FX«B< 1 >*B<2>*<X-00)*B< 3 )•< X-00 )**2*B\' 4 )•< X-QO >**3*B< 5 '•< !<-00)»'*4 

726 l♦B<6>*<X-QO>♦•5 ♦B< 7 )♦< H-OQ >**6 

727 FX-FX«’9.e0663/<< 1 ,*X/( . 356766E + 3 )**2 ) 

728 FX«FX,''<TX+T1*<H-I25. >+T3*<X-125. )**3 +T4*< X- 1 25 . >**4 > 

729 73 STWO-STUO^FX 

730 CUft-SONE»4.*t<EC»SfWO 

731 IF <EPS*ABS<CUR>-ABS<CltR-PREV>> 74,75,75 

732 74 PREV-CUR 

733 80NE-<S0NE-*CUR)/4, 



) 



F'ACE 


OPTS. 


LMI 


8 1 1 3 Prt 


HON., 81 SEP.. I SSI 


734 

735 
734 
737 
734 
739 
74 0 
741 

748 

743 

744 

749 
744 

747 

748 

749 

790 

791 
782 

793 

794 

759 
79« 

797 

798 
789 

760 

761 

768 

763 

764 

769 

766 

767 

768 

769 

770 

771 
778 

773 

774 

775 

776 

777 

778 

779 
760 

781 

782 

783 

784 
789 

786 

787 

788 


16 JAC 


CO TO 71 
79 P-CUR--’3 

IF <Z-tOO. > 44,76.44 
44 IF <0-100, > 76,95,76 

76 0EN6-3.46E -9*183. •EH«CXP< -«/FK'^/< T7*?6. 82678) 

Ot-rtLOCT<OtMS) 

PAR*AV*[>ENSXCH 
AN=*ALOCT< QH»en*f'Afi/:-4 . 96 > 

AA-ALOCT< OA*EH*PAPX86 . 96 > 

AHE-ALOCT< GiHE*EM»PAP,';'9 . 96 > 

AO*ALOGT<2.*PPP»< 1 , -EM,'8e.96) • 

A02°AL00r<PAR»<EH*( 1 .*002 >/88,96-1 , >) 

AM--0. 

C 

C** PETURH TO CALLING PftOCRAH 
C 

RETURN 

C 

C** CONTINUE CALCULATIONS 

C 

40 Z3*I00. 

T23»TX*T1* 23-1. '>5. )♦ T 3 K 23- I 85 )**3* T4*< 23 - I 29 >**4 
2H3-B< 1 >* ' i >*1 0. *6< 3>*l 0 0. *0< 4 >*l 0 00 . *8< 9 >*l 0. **4 . *6(6 >> 1 0. **9. 
1*B<7)*10 - 6, 

0* I 00. 

GO TO 70 

55 DEN 1 -3 . 46E- 9* 1 03 . »2t13*E!<P< R.'FK )A TZ3*88 . 826 78 ) 

PAR-AV*DENI,‘'2M3 

DI< 1 >»ClN*2U7*PAfi!,'28 .96 

D1<8)»PAR*. 2M3«< I . *002 )/28 . 96- 1 , > 

DI< 3 >-2 . *PAR*< 1 , -2M3,'28 , 96 > 

DI< 4 )-0A*2H3*PAR,'28 , 96 
Dl< 5 >-CiHE*ZH3*PAR788 . 96 
IF<Z-125. > 96,56,90 
96 CONTINUE 
A1-1 00. 

FA I *9. 80665 A < 1 , *A I /6 , 396766E*3 )**2 > 

FA1-FA1A TX*T1*<AI-125, >*T3*< A I - 1 85 , )**3*T4*< A I - 1 25 . )**4 > 

D1-2 

F01*9.80665A< 1 . *01 ,'6 . 3S6766E*3 )**2 > 

IF<01-125. > 45,49,90 

45 FD1*FDIATX*T1*<D1-185. >*T3*<D1-125. )**3*T4*< Dl - 1 25 . )**4) 

CO TO 91 

so F01*FD1ATX*A8*ATAN<T1*<D1-189. )•< 1 . *4 , SE-6*< Dl - 1 25 . )**2.9)/A8)> 

T2*TX*A2*ATAN<T1*<2-129. )*< 1 . *4 . 5E-6 *< 2- 1 25 . >**2,5)/’A2) 

91 N*0 

PREV-0 

30NE*(D1-A1 )*<FAI *FD1 )/2 , 

91 N-N*1 

IF <N-n> 92,82,85 
82 NINT-2**N 

eruo-o. 

DEL-<t>l-AI )XFLOAT<NINT) 

DO 83 l-t,NINT,2 
XI-A1*DEL*FLOAT< I ) 


»ACC 


799 

799 

?9i 

793 

793 

794 
799 
799 
797 
799 
799 

900 

901 
909 
903 
004 

905 

906 
007 
00 $ 

909 

910 

911 

912 

913 

914 

915 

916 

917 
919 

919 

920 

921 

922 

923 

924 

925 

926 
•27 
929 
929 
•30 
•31 

• 32 
•33 
•34 

• 35 
C35 
•37 

• 30 
•30 
•40 
•41 
•42 
•43 




17 JAC OATSi IMI 2il3 PH HON., 21 SEP., 1931 


PNI- 9 .« 04 «S/<< I .*HI/ 4 . 3 S 47 i 4 E* 3 >«« 2 > 

IF<MI-I 2 S f 4 t. 46 .S 2 

4 « FKt-FXI/<TX»TI»<NI- 125 . )*T 3 *< HI - 125 . )** 3 *T 4 *<!< 1 -t 25 . )** 4 > 

CO TO «3 

52 fHI-FHI/i TX*A2*ATAN< TI*<XI -»25. >*< f . *4 . 5E -4 *< X I “ 1 25 . )*»2.5>/A2)> 
•3 •TU0*6TU0«FXI 

CUK-& 0 NC« 4 .*C>£C* 5 TM 0 

IF (EP$*Ne 6 <CUR>-A 0 f^<CUP-F'R£V>> • 4 , 05.05 
•4 PREV CUR 

S 0 HE-<S 0 NE«CURV 4 , 

CO TO *1 
05 R-CUR,' 3 . 

00 41 I-I.S 

01 T< I )*CiI< 1 )»<T 23 /T 2 )»*< J .♦ALPHA< I ) >*EXP< -EI< I )*R.>FK > 

41 CONTINUE ' 

OeNS'O 
00 42 1 >I,« 

OENS«-t>ENS*EI< I I ;,^AV 

42 CC'NTJHUr 

EM-l'EH 6 *AV/< 0 IT< I >«on< 2 >«DI T< 3 )» 0 I T< 4 '>♦01 T< 5 )»C>I t< 0 ) > 
OL»ALOCT<OEHS> 

AN •AL 0 CT( 0 IT< I >> 

A 02 -AL 0 CT< 01 T< 2 >> 

AO -ALOCTCPITO)) 

AA -AL 0 CT< 0 IT< 4 >) 

AHE>AL 0 Cr< 0 IT< 5 )> 
lF<Z- 500 . > 47 , 48,40 
47 01 T< 0 >-I 0 . ••<-*> 

40 AH.^AL 0 CT< 01 T<b>> 

AN -AtlAXK-O., AN> 

AO 2 «AHAXK- 0 . ,A 02 > 

AO -AHAXK-O., A 0 > 

AA -AHAXK-O., AA > 

AHE-ANAXK- 0 . ,AHC> 

AH -AMAX.<- 0 . . AN> 

C 

C-* RETURN TO CALLING PROCRAH 
C 

RETURN 

C 

C-* CONTINUE CALCULATIONS 
C 

90 •-rx*A 2 *ATAN< Tt'* 37 S,'*< I . «4 . SE- 6 - 375 . *'* 2 . 5 VA 2 > 

OK A >- to, ••< 73 . I 3 - 39 . 4 *ALOCT< 6 >* 9 . 5 «ALOCT<S >*ALOCT< $> > 

At- 500 . 

IF< 2 - 500 . > 49 . 60,60 
49 At-Z 

60 FAt- 9 . 00665 /<< I . -At / 6 . 356706 E- 3 >-* 2 > 

FA I -FA I A TX*A 2 *ATAN<TI*<A(-I 25 . >*< I . * 4 . 5 E- 6 *< A I - 1 25 . )** 2 . 5 VA 2 )) 
Ol-Z 

lF<Z- 500 . > 6 », 62,62 

61 01 - 500 . 

62 FOI- 9 .e 0665 A< I , *0 1 ,^ 6 . 356766 E* 3 >-* 2 > 
F 0 l-F 0 IATX+A 2 *ATAN(T 1 »<t>l-I 25 . )•< I . * 4 . 5 E- 6 »< 0 1 - 1 25 . )-* 2 . 5 )/A 2 )> 
H -0 


% 


« 


p 


^*GC <• J*C Of>T«i LM| SitSPH HON., 21 iCP . . ItPi 


) #44 PRCV-0 

•49 S0NE><0!-AI >«<FAI*rOI >/2. 

•4« 91 N-N«l 

' §47 17 <N-H> 92.92,99 

•49 92 NINT-2««N 
849 9TN0O0. 

•99 OeL»<OI-AI >/FUCAT<HINT) 

•91 DO 93 l-«,NINT,2 

•92 K1-AI*OEL*FLONT< I ) 

' 993 FNI-9.eO«e5A< I .♦KI.'4.3F<76eE*3)*»2> 

•94 FN1 ■F><1/( TX«ft£»ATrtNv r t *< K I - 1 25 . )•< I . »4 , 5E- 0 •< !<l - 1 25 . >*«2.9 )/A2 )) 

•99 9.1 STU0-$rU0«FKI 

•94 CUK>SONE«4.*r>EL«SrwO 

•97 IF <EF6*«bS<CUf( )-«BS< CUR-FfcEV >) 94,99,99 

• 9« 94 PfilEV-CUP 

•99 90NE-<50HE*C(.'(*‘''4. 

•40 QO TO 91 

94t 99 R>CUR/3. 

•02 T2«TN*A2*AT«N<T»*(2-I2S. )•< 1 , *4 . 9E -6»( Z - » 29 , )*»2.9>/A2> 

•43 IF<Z-900. > 63,44,44 

644 43 R— R 

•49 44 DlT<4)»0K4>*<9,'TZ)*Et<l*<-EI<4>»R,'FK> 

•44 C 

•47 C*« LOOP BACK FOR ADOITIOHAL CALCULATIOMB 

•44 C 

•49 CO TO 94 

• 70 C 

•71 C*« RETURN TO CALLING FROGRAH 

• 72 C 

•73 999 RETURN 

•74 END 


FTN4N COMPILER) HP92634 REV. 2030 <900e2l> 


•* NO UARMINC9 •* NO ERROR6 ** PROGRAM) 2623 COMMON) <NONE> 




I 


i 




PACE 19 FTH. CPTCi LMI iil3 PH HON.. 21 iEP,. 1921 


• 79 SUaPOUriNE SEAN((>V,C>ENJ.ALT> 

679 

•77 C«* SUBROUTINE 'SEAN' CALCULATES THE •* 

•7» C«« SCniAHMUAL VARIATtONS. *• 

• 79 

•60 C 

••I C*« OFCIN CALCULATIONS 
•62 C 

663 TPI • 6.26316 

9»4 A2 ■ DY 

••9 XI • <1. ♦ l,IN<TPl*A2 ♦ 6.03S>)*0.9 

886 XI ■ Xl*«l .69 

887 TAO - A2 ♦ 0.09544»<XI - 0.9) 

088 X* - SIN<TP1»TAU * 4.137) 

869 X2 ■ SIN< 2.*TPI«TAU * 4.299) 

•90 At - <1. « 0. 467I*XI )«X2 

•91 XI ■ <ALT**2.33I )*9.667E-07 ♦ 0.06328 

892 X2 ■ -ALT*2.866E-03 

•93 A4 - XI»EKP<X2) 

•94 A3 • 0.02839 « 0.38I7*AI 

899 XI • A3*A4 

896 OENJ - XI 

•97 C 

898 C** RETURN TO CALLING PROCftAH 

899 C 

900 RETURN 

901 END 


FTN4X COHPILERi HP92834 REV. 2030 <800821 ) 


•* NO WARNINGS *• NO ERRORS ** PROGRANi 167 COHHONj (NONE) 






> 


I 

I * PAGE 20 FTN. OPTSi LMI 2il3PH HOM,, 2t %EP 1)01 


) 002 OUBPOUTtNE SLV< DEN, ALT . XL AT , DAV > 

• 03 

•04 C** SU6P0UTIHE 'SLV' COrPUTES THE SEASOMAL-LATI TUOIMAL 
' 409 C*« VAAIATION OF 0EN6ITV IN THE LOUEA THePMCePHEPE < IN 

900 C»* ACCOPDANCE TO L. JACCHIA IN 8A0 332. 1971. THIS AF- 
907 €♦• FECTS THE DENSITIES BETWEEN 90 AND I60KM. THIS 3UB- 
' 900 C*« AOUTINE HEED HOT BE CALLED FOA DENSITIES ABOVE I60KM. 

909 C»» BECAUSE NO EFFECT IS OBSEftVEO. 

910 C** 

9H C** THE VAPIA’IDH SHOULD BE COMPUTED AFTER THE CALCULA- 

912 C»* TION OF DENSITV DUE TO TEMPERATURE VARIATIONS AND THE 

913 C«« DENSITV <DEH> MUST BE IN THE FORM OF A BASE 10 LOG. 

914 C** NO ADJUSTMENTS ARE MADE TO THE TEMPERATURE OR CONSTI- 
919 C*« TUEHT HUMBER DENSITIES IN TH^ REGION AFFECTED BY THIS 

916 C«* VARIATION. 

917 C»* 

9IB C*« DEN - DENSITY <LOGIO> 

919 C** alt - ALTITUDE <F,M) 

920 C** XLAT - LATITUDE (RAO> 

921 C** DAY ■ DAY NUMBER 

922 C** 

924 C 

925 C** INITIAL I?E DENSITY <(>EN) ■ 0.0 

926 C 

927 DEN -0.0 
926 C 

929 C-* CHECK IF ALTITUDE EXCEEDS I60KM? 

930 C 

931 IF <160 - ALT) 999,5,5 

932 C 

933 C— COMPUTE DENSITY CHANCE IN LOWER THERMOSPHERE 

934 C 

939 5 Z - ALT - 90, 

936 X - -0,00I3-Z«2 

937 V « 0,0172-DAY ♦ 1 . 72 

930 P - 6IN<V) 

939 OP - SIN<XLAT> 

940 SP - SP-6P 

' 941 0 - 0.014*2*EXP<X> 

942 0 - S-P-8P 

943 C 

-> 944 C— CHECK TO COMPUTE A0SOLUTE VALUE OF 'XLAT' 

945 C 

. 946 IF (XLAT) 10,15.19 

J 947 10 D • -0 

948 19 DEN - D 

.. 949 C 

J 950 C-- RETURN TO CALLING PROGRAM 

951 C 

952 999 RETURN 

> 953 END 



> 


« 


PACE a\ CLV OPTS I LKI 2 1 1 3 PM MON., 21 CEP.. ICdl 

FTN^K COMPILEPi HP*2»34 PEV.2030 <©01)621 ) 

• • NO WAP MINC8 •• NO EftPORS PPOCftNM I »23 COMMON i < HONE ) 


r 


PACE Sa FTH. OPT 81 LXI ail3PH HON., at $EP . , (881 

954 SUBROUTINE SLVH( C>EN , DENHE , XtAT , SDA > 

955 

955 C*» SUBROUTINE ' 8 LVH' COMPUTES THE SEASONAL -LAT I TUO INAL •• 

957 C** VARIATION OF THE HELIUM HUMBER DENSITY <ACCOROING *• 

956 C** TO L. JACCJIA IN SAD 332, ISFO. THIS CORRECTION •• 

959 C** IS NOT IMPORTANT BELOW ABOUT 500KM. •• 

960 C»* •• 

961 C*- DEN - DENSITY <LOCIO> •• 

962 C»* DENHE - HELIUM NUMBER DENSITY <LOG10) 

963 C** XLAT - LATITUDE <RAD> •• 

964 C** SDA • SORAR DECLINATION ANCLE <RAD> •• 

S>65 

966 C 

967 C** PERFORM CALCULATIONS 
969 C 

969 DO - to. •♦DENHE 

970 A • 0.65*<6DA, ■'0.40909079) 

971 C 

97C C** CHECK- TO COMPUTE ABSOLUTE VALUE OF 'A' 

973 C 

974 IE<A> 5,10,10 

975 5 A - -A 

976 10 B - 0.5*XLAT 

977 C 

978 C*« CHECK TO COMPUTE ABSOLUTE VALUE OF 'B' 

979 C 

980 IF(5DA> (5,20,20 

99( 15 B - -B 

992 C 

983 C** COMPUTE X,V,DHE, AND DENHE 
9B4 C 

985 20 X - 0.7654 - B 

986 Y - SIH<X> 

987 V ■ V»Y*V 

988 ONE- A*<Y - 0.35356) 

969 DENHE - DENHE • DHE 

990 C 

991 C** COMPUTE HELIUM NUMBER DENSITY CHANCE 


. 

992 C 

993 

Dl - 

to. ••DENHE 


994 

DEL- 

Dt - DO 


995 

RHO> 

1 0.*^DEN 


996 

DRHO 

- <6.646E-24)«DEL 


997 

RNO 

- RNO • DRHO 

J 

998 

DEN 

- ALOCT<RHO> 

999 C 




1000 C*« RETURN TO CALLING PROGRAM 
. 1001 C 

J 1002 RETURN 

(003 END 

) 

FTN4X COMPILER; HP92B34 REV. 2030 <800321) 


« 



PACE SI 6LVH 


OPTSi LKI 


5i 13 PM MCN, , 21 ^EP. , I9it 


•• NO UmPNINCS •• NO EPROPS PROGRPNi COMMON i (NOME) 



PACE 24 FTN, OPT 61 tXI 2it3 PH HON., 21 SEP., I9«l 


1004 BLOCK DATA 

1005 

1006 C*« THIS IS THE BLOCK DATA FOR THE •* 

1007 C*« 'JACFt' PPOCRAH. •>’ 

1000 c***» 

1009 C 

1010 C** COfIMOH BLOCK DATA 

1011 C 

1012 COHMON /EDATA/ 1 VR, IDA, MH, IHR, HIN, KM JD, F 1 0 , F 1 OB , G I , ILAT, ILNC, 

1013 . XLAT.XLNC 

1014 COMMOH .'FDATAX A< 300, 6 ) , DEHLC< 300 ), DEMS< 300 i , DLO 00 > , EM< 300 >, 

1019 . T22< 300>, XLATT<300),XL0NGO00), 2^ 300), OPHOI< 300), 

1016 . DRHO£< 300>,DRH03<300> 

1017 END 


FT1HK COnPILERi HP92B34 REV. 2030 <600621) 

• • HO WAPNINC 8 •• NO ERRORS •• PROGRAM 1 < NONE > COMMON) < NONE > 

BLOCK COMMON FDATA SIZE) 10200 


BLOCK COMMON EDATA S!ZEi 


19 



JMC7I 

10042 

1334’ 

ACI-01»U01 

JACCHIA 

'71 MODEL <RCEDA 

SYSTEM) 

HATPR 

13350 

18111 





TINF 

I5M2 

16032 





TMC 

16033 

17136 





.(AC 

17137 

24235 





SEAN 

24236 

24504 





SLV 

24505 

24677 





SLVM 

24700 

25124 





PDATA 

25125 

51054 





EDATA 

51 055 

51 077 





OPEN 

51100 

51442 

92067-16125 

REV.. 2001 

791018 


CLOSE 

51443 

51656 

92067-16125 

REV. 2001 

791019 


REaDF 

51657 

82647 

92067-16125 

REV. 2001 

79I0IS 


FTIME 

52650 

53141 

92067-1X301 

REV. 2013 

780731 


MOD 

53142 

53171 

24990-1X1 07 

REV. 2001 

751 1 01 


«SMVE 

53172 

53264 

92067-1X4S3 

REV. 2013 

660129 


RMPAR 

53265 

53327 

92068-1X025 

REV. 2013 

781 106 


OVRD. 

53330 

53330 

92067-16125 

REV. 1903 

760526 


LURQ 

53331 

53743 

92067-1X270 

REV. 2013 

791024 


REIO 

53744 

54070 

92067-1X276 

REV. 2013 

790316 


5ESSH 

54 071 

94106 

92067-16125 

REV , 1903 

700413 


IFTTV 

54107 

54174 

92067-1X293 

REV. 2013 

7901 18 


ERRO 

54175 

54264 

24998-1X250 

REV. 2001 

771 122 


.ITOI 

54265 

54403 

24990-1X055 

REV. 2013 

791017 


«ALRN 

54404 

54521 

92067-1X271 

REV. 2013 

770715 


ERO.E 

54522 

54522 

24998-1X249 

REV. 2001 

750701 


.A8IN 

54523 

54626 

24990-1X373 

REV. 2026 

800222 


.RTOI 

54627 

54741 

24998-1X063 

REV. 2013 

791230 


.EIO. 

54742 

56157 

24990-1, *<329 

REV, 2026 

800706 


FMTIO 

56160 

57407 

24998-1X320 

REV. 2030 

800818 


,OPN? 

57410 

57433 

24990-1X325 

REV. 2030 

800803 


.FPAU 

57434 

57537 

24990-1X324 

REV. 2030 

800731 


.EMIT 

57640 

67613 

24990-1X320 

REV. 2030 

800731 


. lOCL 

57614 

57715 

92028-1X305 

REV. 2030 

800731 


CODE 

57’I6 

57755 

24998-1X335 

REV. 2026 

800303 


.FMCV 

57756 

62220 

24998-1X333 

REV. 2026 

806709 


. lOER 

62221 

12334 

24990-1X321 

REV. 2030 

800731 


.UFMP 

62335 

62347 

24998-1X296 

REV. 2030 

600731 


.PIO. 

62350 

62624 

24990-1X330 

REV. 2026 

800708 


.FlOt 

62625 

62704 

24990-1X322 

REV. 2030 

800803 


.RTOft 

62705 

62777 

24998-1X064 

REV. 2026 

600509 


.MNMI 

63000 

63134 

24990-1X1 1 0 

REV. 2026 

800303 


P.PaS 

63135 

63163 

92067-16126 

REV, 1903 

740801 


R/U$ 

63164 

63322 

92067-16125 

REV. 1903 

781214 


•OPEN 

63323 

63477 

92067-16125 

REV. 1903 

790103 


RU«UB 

63500 

64 045 

92067-16125 

REV. 1903 

781003 


RUNDt 

64 046 

64170 

92067-16125 

REV. 1903 

760901 


LUTRLI 

64171 

642?7 

92067-1X300 

REV. 2013 

790223 


PNAME 

64300 

64345 

92060-1X035 

REV. 2013 

77M2I 


LOCLU 

64346 

64423 

92067-1X297 

REV. 2013 

790228 


LIMEM 

64424 

64444 

92067-1X477 

REV. 2013 

790126 


PAU.E 

64 445 

64445 

24990-1X254 

REV. 2001 

750701 


. lOCM 

64446 

64505 

92828-1X327 

REV. 2030 

800803 


24 PACES RELOCATED 

51 PACES REO'D 27 PACES ENA 

4 PACES MSEC 


LINKS iBP PROCRAMiLB LOflCi i TE CONMONiHC 
/LOrtDR I JAC7t READY AT 2<I7PI1 MON., 2t SEPT, (981 


/LOADRilEND 


APPENDIX C 
PROGRAM JPLOT 


ATSUKO COMPUTING INTERNATIONAL 
HUNTSVILLE, ALABAMA • USA 


( a ]©0 


C-1 



< 


Ph''.E 


PIN 




L«. 


3.?.- f-.'l Tu(- 


': C . 




2 

3 

4 
•i 

6 

7 

e 

» 

I 0 

I I 
12 
I 5 

14 

15 

16 

17 

18 
)9 
SO 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


C • 
C* 

C 

c* 
c* 
c * 

c • 

c* 

t * 

c * 
c 

c» 

c » 

c • 

C' 

c* 

c* 

C*' 

c 

c»* 

c 

c 

c** 

c 


8(«oc;»Mrt jf I 0 T< 3 >,hc r-o>i63i v'M> cHjM init,-«c I ive pluT fkcicr..>ii 


#*«*«• •» 






(i£Cf V 1£-I lONi 


It.»^LlTSi 


OUTPUTS I 
HRJ T FEM evi 


* * 

r-90Cft«l1 ’0PLO1' IS 8N IHTf PmC T IVf PLOT •• 
PPOOPmH UHICH PVLOUS the U;F.P 10 frviPkJE »• 
VhPIOUS TYFfS OF PIOTS, ♦* 

UbER p'POVU'fS INPUT ThF*. NTkhJ VIA 'CRT', 

-- LAPELS, • OF C>ATA /UIMTS, OwTh, AMS ♦♦ 
-- INPOPMATIOM, SC Hi INS kHi'TOP-, TITLES, 

-- SUPTITLFS, mMO etc, »• 


various user selected jafcmia plots, 

JOHN S, HICKL'V <ACI) 633 -7SS0 
MU'E DICKEPSOK <ACI> 533-7S90 


* » 
* * 
* « 
«« 
• « 
• * 
** 


c 

c** 

c 


COMPOM STATEMENTS 

COdMON ICCB< 192 >,XOFCP, VORCP, I PARC 5 ) 

DIMENSION statements 

DIMENSION ITI TLC2I ),NAMEv 16 >,l.nBV< 16 >,LApHs 1 6 ), I ESC 7 >, I CV I c 2 ), 

♦ I8UF< 16 >, TOT< 25 F, AVC< 10), IAVG<5), IaVT< 5),LAVC<50), 

♦ VCOR\ IO>,LLEGI<8),l lFr,3Ce),U Ei-,3<8), 

♦ LLEC4<3>,U-E':,S''8),LAet1c2l ),LaBE;n2I >,L« 6 t 3 <;.<| ), 

♦ ISUBK21 >,i&ue<2t2l ),ISUB3>'2I ),K<5,25 > , VT 5 , 25 ) , XC< 5 , 25 >, 

♦ VC<5,25> 

DATA STATEMENTS 


DATA ITITL,''40,20*2H / 

Data isuei,'’40,20»2H / 

DATA ISUB2,'40,2iT*2H 
DATA I'3U63/40, 20*2H / 

Data iavt,' 8,2Hal,2HL ,2hse 
DATA lAVC/ 8,2HAV,2HEP,2HAC 
DATA LaDV,'30, I5«2H / 

DATA LABH,'30, I5»2H / 

DATA NmME/30, I5*2H / 

DATA LEG/l2,2Hk+,2H*L,2HFC, 
DATA ICVI/ 2,2N--/’ 

DATA ieuF/30, 15.2H / 

DATA LAEEI,''40,20*2H / 

data LABE,T,'40,20»2H / 

DATA LABE3/40,2(i*2H / 

Data LLFCI,"I4,7'*2H 
DATA LLECEV|4,7*2H / 

DATA I.LEC3/'I4, 7*2H / 

DATA LLEC4,'I4,7*2H / 

DATA LLEG5,'I4, 7*2H / 


1 MAIN TITLE 
I SUBTITLE M 
I SUBTITLE #2 
I SUBIIIlE 43 

,2HTS/’ I LAPEL FOR ALL SET AVG , 

, 2HE / I LhBEL fop set AVERAGE 

I V AXIS LABEL 
I X AXl S LABEL 

I nhme,ppovect id 

2HEN,2Ht>»,2Hr»,' 1 LEGEND LAPEL 

1 LEGEND LABEL SPACER 
I COLL EC IS THE TIME 

' e);tpa label I 

I E,XTPA LABEL 2 
I EXTPa lapel 3 
I LEGEND label 1 
I LEGEND Label 2 
( LEGEND LABEL 3 
I LEGEND label 4 
I LEGEND label 5 



.. ■ - 

;■ v'Fi 01 

ORTt 1 

LiU 


5 

lE'r f-, 

1 T 

' E . , 2< 

; :er,, )■ 

'•< ji 1 


57 

tiHTrt 

LfiVC/iiS.ilH- 


;h 

- , 2H 

2H 


H - - , :-H 

- , i i ■ - , C'H 

-- .in ■ 


5«i 

♦ ih - 



, 2H - - , 

,2H- •, 

1 SM , 

in - 

- .in ' , 

, 2H - , 2h - 

. in - 

, 2H--, 

5> 

* ;-H-- 


, 2M 

, 2H 

,2H- , 

,2H 

2H 

. 2H - , 

,2H 

.in--. 

. 2H - , 


• fH - 

,.-M -,CH 

, 2H , 

, i'M - , 

, 2M--, 

,i'H- - . 

2H- 

, 2H-- , 

, 2H --.in 


, 2H--/ 


c 

ii C ' ► FETCH LOF, ?Crtl UNIT 
<?7 C 

CF.I I. ftrir-.-.R' IPmR) 

cS LU- IFhR< I > 

C 

t? C Chl.L ?V6TEM TIME THIt> ChTE 

C 


6i> 


ChLI FTIhE< I6UFF2)) 


?0 

C 



71 

C 

CLEhR CRT UriPLrtV 


72 

C^V 



73 


•.iftlTE<LU,035) 


74 

>3“; 

FOt’lMT^ "tHt J“ 7 


7S 




76 

C 



77 

c 

RSI’ USER MHICH PLOT fVPt TO BL USEO 


70 

c 



79 


WftITE<LU,70( > 


80 

701 

F0RflRT<7, “OO VOU UMtlT THE 4 OUiTOPmNT, UFFER RIGHT 

ClUAORAHT, 

61 


♦"OR PIE CHhRT PLOT TYPE. <I=4-C;URC>, 2“UR OURO 3=>Plf)i ■> 

62 


REOtXLU,*) Id TV 


83 

C 



84 

c 

TEST FOR PIE CHORT PLOT TYPE 


85 

c 



06 


:n I0/Y.EO.3J COLL PPLOT 


87 

c 



80 

c 

ASK USER IF linear OR SCATTER PLOT OESIPEO 


80 

c 



*0 


klRITE<LU. 161 > 


91 

161 

FORMATC//, “DO YOU U»HT A LINEAR PLOT, SCATTER PLOT 

, OR",/. 

92 


♦“BAR GRAPH?", 7, 


03 


♦ “ I-'LINEhR PLOT <SET OF POINTS COHNECTEO BY A LINS'* • , / , 

94 


♦ " 2-^SCATTEP PLOT <?ET OF POINTS HOT COHr cClEC BY 

LINE* ",/, 

05 


♦ " 3 = BaR GRAPH'•,,^ 


96 


♦ ''ENTER 1 '•> 


07 


REA0<LU,*> IPLT 


03 

C 



90 

C 

ASK USER IF HE WANTS GRIC* PATTERN SUPER I MROSEO OK 

PLOT 

1 00 

C 



1 01 


WRITECLU, 170) 


t 02 

170 

formht<7,"oo you want grid Pattern surer impose!' on 

PLOT",/, 

1 03 


♦ '■ <Y-VES N=>NOy ENTER 1 ") 


1 04 


READ! LU, 172) I OR 10 


I 05 

1 72 

FORMAT< At > 


1 06 

C 



107 

C 

TEST FOR PARTICULAR PLOT ^YRE 


1 00 

c 



t 00 


IF! IPLT.EO. 1 ) IPLT--2 


1 I 0 


IF': IPLT.EO. 2) IPLT= 1 


t 1 1 

c 




I 





f 


« 



-r,CE 

3 

1 IS 

C 

1 1 3 

n< 

c 

1 15 
116 

1 02 

II? 

lu3 

1 10 

C 

1 IS 

C 

120 

121 

122 

r 

1 23 

124 

125 

126 
127 

310 

123 

320 

I2'S 

33 

130 

C 

131 

C 

132 

133 

c 

134 

135 

1 04 

136 

1 05 

137 

c 

136 

c 

I3S 

140 

c 

141 

142 

173 

143 

C 

144 

C 

145 

146 

c 

147 

146 

1 74 

I4S 

C 

150 

c 

151 

152 

c 

153 

154 

1 06 

155 

1 07 

156 

C 

157 

C 

153 

I5S 

C 

160 

161 

I 08 

i62 

1 OS 

163 

c 

164 

c 

165 

166 

c 


jh.oi of'T'ji uxi ni v.:r . . »■;' i :• 


e« t ft f I Tl E or THE ftLOT 
Iiifti TK I (I. t 0*’ < 

For-iun< /, "fuTrft plot nrt£r “> 

ui, 1 03 > utiTL^fi, ►’ .■'.i'ol 

rof. mhT( iom.'' I 


ft'K uf'! ft Fuft Of t>l r || '..(I ’.I'f TmES 

00 33 ICT- t , 3 
(.'0 I rE< I *J, 31 0 > 

FOFrtftT</', "£'(IF=' 'SI.U-TIUF, jr itOnE Ot-ilTfO, HIT fttiUftH f C f 

* “ » • • * " ) 

1F< ICT .£0. I ) PFOCmLIJ, 320 > (ISOOHK;, K»2,^'0> 

IF< ICT,E0.2 ) ftFHCKLU, 320) <Ii0e2<K), K"2,20> 

1F< icr .Efv. 3) ftFOCXLU, 320) <ISM03<«), K“2,20) 

FuftMuTC I'ShC) 
conn HUE 

EUTt-ft U' Fft 'S *(HME 
WRITETIU, too 

F0fi/:,'|T< “tllTEft youft IIAME "> 

REhOv I U, f 00 ) <HfME<K >, K^2,TS) 

KOftMHT< HhC) 

EHTCR LEHOTH OF X OKI? IN IHi'HcS 
tlKITE*. Ml, l?3) 

FOr.,v.r</, "M.i lR X A;,jy iemcih, aiM;<‘-i 3 .o inih.- • - i _" ) 

ftfnC'< LO, * ) XI FN 

«$K UCEft TO FNTEft V ftXIi lEHGTH 
WRITETEU, IF4) 

FO^^!HTl:,^ "EilTRR V hXI? lEliCTH. <I1 h;s» 7.25 INCHES ) i *' > 
ftE>tOM.U,*) VLEN 

ENTER TH ■ X AXIS LAtFL 

Uftl TE‘ LU, t 00) 

FORHHK/', "ENTER THE X hXIS LhfEL "> 

REhIX LU, I 07) CLftOHCX) ,K-2,I5> 

FOftrtHTC I4A?) 

ENTER V AXIS LAPEL 

UftlTETLU, I 03) 

FOkT'.ATC,', "ENTER V AXIS LAPEL "> 
ftEAfXLU, I 03 > (LABVM: ), K»2,I5)~ 

FOXrlAK » 


A£i: USER IF HE TOUTS AM ITIONi-L LAPEuS 
UfilTECLU, 


.1 .f’lOT Of-I.i L;<I 3.53 ril Tut , . . i'.jl 


' 167 M2 f l «<".'tT< “MM' MMUy fc-Tfift LAi'H ^ 00 YOU ( ',u.' T , < M I (( i , Mm:' 3 ) i “» 

16$ sr.Hr.v cu. ♦ ) LTc. 

C T£.l Fuh Cit'O 1' tLS 
' t7u IF < L f t> . t'* . 0 > 00 lu 4 0 0 

171 C 

172 00 4.11) ILT'-tAU) 

173 "S Mf ' 1 U, ;'0I > 

174 7IJ1 Fl•.^.■«r< /, "L'lfLS >Tt'Ul riOH.ll LhIiL.i " > 

175 IF\ ItT .Fu. I > F£uCnl U, . 50 ) < l.n i I M. 7 , .0 » 

176 IF', II T ,Fu,J > FPmC'U U, 770 ) ^LhPF7<F'), K«2',70> 

177 IF. ILT.tO ,3 > r-t u(" I U,7H')J F), K'7,?0) 

I 7$ 75 0 F u" > 1 1 . 1 y>>2 > 

I 7y t 

160 C «SK Fuft CO'jrMhMiF.' UF E.XIFu I ME.EU5 

1 6 1 C 

167 UftI TE< LU, S40) 

l$3 740 FO'F.i.'iK /< “EMTEP X, V CO'' = :■ MihTF $ . 0.5,7 )i ") 

164 Fi Ml'.' LU, • ) p; C ,PYC 

165 IFUuT.Eu.l) PXU •FJ.C-I .0 

lOo IF<ILT.F0.1< F.VCI -riVC-l . 0 

187 IF<lLT.EO,2) P;:C 7' =P,<C- I , 0 

18$ |F< ILT.Cu.S) RVCi PYCM .0 

18$ IP< ILT.EQ.3y PMC7-RKC -1 .0 

190 IF< ILT.E0.3) PYC3«P.YC-1 ,0 

191 400 CONTIMUE 

i$a c 

193 C EMIEft HU.'lOrft OF 0)114 POINTS 

194 C 

195 UEITE^LN, I I0> 

196 110 FOf,i;)^T<X, "FllltP HlMFfcR OF FoINIS FoF UlFblM I'mTh i£Ti " ) 

197 FEmOCLU,*) NOrtTP 
196 C 

199 C ENTER X AXIS MINIMUM NNt> M)1X1MUM VALUES 

200 C 

201 IF< lOTV.EO.i') WF:| TEil U, 1 1 I > 

202 III FuRMATCX, "ENTER MINIMUM, MAXIMUM VALUES FOR X 

203 4"SEFARATE with COMMA. (EXAMPLE) 0.,I00,) ENTER) _'*> 

20 IF< IClTY.E0.2l PErttKl.U,*) XMIN.XMAX 

205 IFUCiTV.ECl. 1 > URITEau,?!!) 

206 711 FORMATCX, "ENTER MAXIMUM X AXIS VALUE) _" ) 

207 IF< lOTY.EO, I > REAtXLU, ♦ ) XM>1X 
206 C 

209 C ENTER NUM&ER OF TIC MaF;KS FOR X AXIS 

210 C 

2H URITE^LU, 112) 

212 112 FORHATC "ENTER NUMBER OF X AXIS TIC MARKS) ") 

213 REi.C"- LU,'*) XTIC 

. 214 C 

y 215 C ASK USER UIHETMER OECIMAL POINTS TO BE SUPPRESCEC' FOR X AXIS VALS 

216 C 

217 yPITE''LU, 1 13) 

’ 716 113 FOF..!aT< /, "C>0 lOU UmNT t'Ei:iMAL POINTS SUPf F.ESt'Et' ON X AXIS'',/, 

219 ♦"INCPcMFNT V,.l llLi N NO, Y-'CES i "> 

220 REAt"'LU, I 19 ' IFLAC. 

221 119 FC>RM,)T(AI) 


.j 

u 


li 




--CE 0 JfluT (if- Vi LX I 


J I & ,? J'll lut., «.'» ■•C*’ . 1)51 


1 

222 



223 



224 

C 


225 

C 


22F 

C 

1 

227 


* 

226 
2. -'ft 

1 1 4 


23U 



231 

,'I4 

s 

2 32 


■ 

25) 



234 

C 


235 

c 

i) 

236 

c 

I 

4 

237 


236 

236 

1 39 


240 

C 


241 

C 


242 

243 

C 


244 

1 15 

I 

245 



246 



247 

249 

129 

» 

249 


i 

2S 0 

C 

« 

2*11 

C 


252 

263 

C 

» • 

ii 

254 

116 

'} 

}j 

259 


e 

256 

C 


257 

c 

' 

256 

c 

■1 

256 



260 

ISI 

• ft- 

261 

262 


r 

263 

162 


264 

C 

I. 

265 

c 

) 

266 

267 

c 

T - 

266 


1 

269 

163 

I . 

270 

271 



2?2 

IS4 

I' 

273 

C 


274 

c 

i .. 

275 

c 

) 

276 



!f< if L«& to. IHV t li.t'. I*-! 

if< iruf*') ro. iHH) j(i£c 1-0 

cult St r «XJ& riMlMi.'fl f<Mt* V«uit& 

Ifv I .U.tQ.li S'S'I if ■ ( II. 1 M> 

f l.; ”flT< “till ts. V (iXIa M!M.,HCX. VhI i if s . “ , Z , 

♦ ■' .tf-i'.SHlf; U|lM IfiMit.l. •£>'.! O.lOO* LNIffti " » 

lufV.fcO, 1 ) 1 !kJ ItM U. .’M) 
f i.ii itM r< “EMf r* M,<yihuii ( mxi ; Vmi ijE.! "j 
I fyiUiy.EOI) U. . ) VHftX 

if-uory viun, 

LMUR Muci.; ft OF y -^xis lie riHM S 
Wft|IF<LU, I35>> 

“ENIfft NUl i tft Oft Y flKIS r ic I, -R> ; “) 

fttHoau,*) VTic 

fifK- U'tft If ME U.IM'.. OPCIIWIL f-uIHTS SUffft.' :tC> OH V t.XtS 
WftITEflU, M9) 

fokmhh/'/', “O', you wftUT on if'fti ftoriiii soiopr.' .to ou v oxis-,.', 

♦ "Iin ftftllENT V-iUftS. < H-HCI, Y-VF5 ) i ") 
ftEOO<’Ui, l£5i < IFL«C 

FC'ftl'HUftI ) 

IK II LmC.EQ. IMY ) 

IF< Ift'LuC to, IHN > I0tC2«0 

tHTEft. HIMIL ft Oft lU OF ft'lOTTfO 

WRITE' (U, ) 

FuF:iOT<//, "LUTFR HO, OF I'URVOS TO OE PLOIit.0. Hm '.MJH OF 5, i 
SlEntXLU,*) NCUftV 

HSK USER FOR LEr.'-)IO Lftl'FL C>EFIMnOH£, 

UftITE<LU, lai ) 

Fuft;Mftir</, “EHTEf; IF'tNC' l.«t'FL OtOCKiFdOH f Oft I';- ( OOTm SET.",/', 

♦ “ < IS ChHftOfTt ft MAX » i '■ ) 

REAtx'Ul, 162 WLlFCifK>, k»2,i'> 

F0RHhT<7A2) 

Fl?K LEGENO FOR 2M0 SET 

IF<MCOftV,LT,2> CO TO 92 
ufti rt' i u, iK.T) 

FC'fti.AK /, “EmIFR Lti.trO Ot ■. CR 1 PT I OH FOR 2 hI' I'mIm OtT. 

♦ "<12 CHAftnCTfcP H'*X T I “) 

REAO< LU, 164 > <LLft.."Kf, k-2,?f 
F0 F;!aT<?A2) 

A'l: LFi:,ftHt' ftoft. .'Fi' ft' r 
IKHClift,V,LT ,3; GO TO 92 
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6£F . 

, 1 

Sf7 


li'M T fc < UU , 1 95 » 




1 05 

“tiiii ft Lt’i.rt.i. t-f -CftlftTU.H ftOft jft( 

SET . 

> 



ft£.<c-<l.u, 106 » K«2,7> 



Sod 

I0< 

fOrt., il< ?82> 



281 

C 




sss 

c 

H'li U'i'.IHti h:i> 4IH >£f 



S&J 

c 




284 


IKH( UftV.LT,9 1 UO TO 92 



Su5 


Uftt r(\ 1 u, 18 ? > 



sm 

187 

IFi.ruC' Of ‘’If'lf noh ft.jft 4 Tm 

• t r . 


So? 


ft£.4" LU, 1 OO . <UfOi<K<. >-S,?i 



;Sf 

1 60 

f t'f ii.< r< ?h2 9 



2yf 

C 




29 0 

c 

LfGFMO fOft 5TH &£T 



291 

c 




srs 


Jf<N(.l.iRV,l.T,S> GO 10 92 



S^i 


I39> 



294 

1 I'9 

KOftr: 7(/,"tN7£ft M'l.Cft Ift*. JCKJ FuK '..fM OmIm 

J£T , 


290 


lu, t9l > <l LFG0<K >, K-2,79 



29e 

191 

Fu-..“rtl< 7i.t2> 



29? 

C 




296 

C 

ft'K IF Lltvf. OF ftVfF 'OF. UHUfEl' 



299 

c 




300 

92 

Ui<nE<lU, 171 ) 



301 

171 

FOftHftTFX, “CO YOU WftNT H tINt OF rt', C F-h'^E , 



302 


• “0*MO I.IHF OF rtVEF.:»r.r“,9', •’l-LINF OF MVtft.iCF F-£ft 

SET 


303 


."2-LIME OF FiVtftMGL FOK FILL 5fc 16 



304 


♦ “3-LIME OF OVEftOGE ft£ft $£1 «Ht. FOft KLL SEFii COMFIMEO 

" .X, 

309 


♦ "EMIEW „"> 



30* 


ftt Mf'. LO,* > lAV 



30? 

C 




309 

C 

EMTLft OrtTrt TO 8£ f-LOT TED 



309 

C 




310 

C 

INIT1ALI2E VftftlflOLES 



31 ) 

C 




312 


1F< IOrV.EO.2) XIMC-XL£M/.-X(!ft!<-XMIN) 



313 


IFF lOTV.EO. 1 ) XIHC 'XL tM,'f XM«X*2. 09 



314 


IFF lory ,EO .2> VINC-VLFM,'< VNOX VMIM > 



315 


IF< IQTV.EQ. 1 ) VIMC-VLfN,'. VJIO;;*2.0) 



316 


IFF ICiTV.EG. 1 > VI1IM»-VMmX 



317 


IFF lOfV.eO, 1 ) XHIMo -VM.'K 



319 


XTIMt -MENXXTIC 



319 


XNC-KTIMC 



320 


XSTftT-XNIN 



321 


«TOT"0 



322 


CMTft-0 



323 


VJNC-VLEN/y'TIC 



324 

c 




325 

c 

EHTEft THE SET D«TO 



326 

c 




327 


DO 50 I-l .HCUftV 



323 


YJOT-0. 



329 


CT«0 



330 

c 




331 

c 

FftIHT SF'EfIFK DftTH ;ET DCGIMMJMi, 





■'mCE 

7 

33i 

C 

333 


334 

12 1 

3 35 


336 

1 26 

a/ 


338 


339 

C 

34 0 

c 

341 

c 

342 


343 

123 

344 

I2« 

345 


346 


34 7 

U'8 

340 

167 

349 


35u 

c 

351 

C 

35E 

c 

353 

2) 1 

3S4 

C 

355 

c 

356 

c 

357 


359 


359 

331 

36 0 

333 

3o1 


3?. 

335 

363 


364 

336 

365 

334 

366 


367 

C 

368 

c 

369 

c 

370 

332 

371 


372 


373 


374 


375 


376 

40 

377 

49 

379 

C 

379 

C 

38(1 

c 

381 


3S2 

50 

383 

C 

384 

c 

335 

c 

386 



JPIOT Of-T&i L!<l 


3it3 F.i lUF. , ii 


UMTEaU, t£1 ) I 

F 0 F,ttAT</, "ttirtft &ET * ",n,“ . (E.'HfiriE! 1,10.) 

WS'ITt<LU, !£«•> 

FOFMhTi: “ IF VOU UISH TO TEFMIMATE A OmTA SET ttFuFE " 
♦ "THE MO'-'lllUM MHI-S’Ek OF FtirFHS, FnIlk ♦■ji.'j' 

00 4(1 I .NOmIA 

phint omta efury srHri.iuhi 

IF( J.CE . I 0 ) CO TO \^'i 
I.JR ITF(LtJ, li'OT J, J 

FOr.||MT</, "ENTf P XCMI,"' Y.",1I,"^1 _“ > 

PEmCi<LU< * ) X. J, J),YM, J> 

CO TO 211 
WRITEdO, I67> J, J 

FOfdlAK/, "EMltX XC 12, ” Yv ", I.-, " )i ") 

FtHO<LU, *) X'. I , ..O.Yc I , J) 

TEST FOE r-RLHOTOPr PmTm T : ■ !1 1 ■ I 1 00 

1F<X< 1, J>.E0,99,9) CO TO 49 

TEST FOR IMVALU' OHTA HtlO H$t, USER TO RE FNTER 

IF<X< I , J).LT .XMIFI ,0R ,X< I , J> ,GT , VMh;0 CO TO 331 
CO TO 335 
WRITE<LU, 333) 

F0RM>n<2, " IHVAL It> C'hTH, F" ENTRR.“i 
CO TO »23 

IF< Y< T, J>. LT. YMIH. OR , Y< I , J). 07 . YNh;; > GO TO 336 

CO TO 332 

UR1TE<LU,334) 

F0RMAT<2, “IHVALTO t'HTH, RE ENTER.") 

CO TO t23 

COMPUTE X,V COORM HATES 

YC< 1, J)-< V< I, J) YMIN i*VlHC 
XC< I, J)«':,X< 1. J) -XrtIN i»KIHC 
YTOT‘YTOT + V( I , J) 

RTOT'=ATOT*YC( 1, Jl) 

CHTR«CNTF;»I . 

CT-CT+T . 

CONTINUE 
TOT< I )-YTOT 

calculate average for the PhTA set 

AVC< I )-T0T< I )/CT 
com I HUE 

COMPUTE AVERhCE FO" hLL lUR.'CS IP L'.-iirEO 

1F< lAV. HE , 2 > CO TO 4 . 


r^ji 


) 

/, 


.) 

■» 


I 


^mCE 


33? 


360 


336 


390 


391 

44 

392 

C 

3'U 

c- 

3)4 

c 

395 

c 

346 

c 

397 


399 


3 9.9 


400 


401 


4 02 

c 

403 

C 

404 

c 

4 05 


406 


407 


400 

c 

409 

C 

410 

C 

41 1 

c 

412 

c 

413 


414 


415 


416 


417 


419 


419 


420 


421 


422 


423 


424 


425 


426 


427 


420 


429 

1 0 

430 

c 

43t 

c 

432 

C 

433 


434 

c 

435 

c 

436 

c 

437 

c 

4 3-5 


439 


44 0 


441 



JPLOT OPT&< LXl 


1 1 & * p(i Tu£ . , iEP , , 1 531 


TOTL-0. 

00 I««l,NCUftV 
TuTl* rOTL«HVO'. Irt) 
rtv»'*LL*rtrur^CNTR 
CONN HUE 

Tt^>T Flip PF(PTirui.ftp cii^mr I'-hir f-io' 

CPU LOCJCPL UNITS 

C«l L PLU 0< * 

CPU LLEFT 

CnU 6FPI T< IS , , I 0 . > 

CPU PL0T< I . , I . , -3> 

CmLL PL0T< 0. , 0. ,3) 

TEST FOR 4 wUhO OR UFFER RKHT OUhO FIOT TVPt 

IF< lorV ,EO. I > CPU FClU.iO< KMIN, VMIH, XMhX, VMP!<, XL EN, VLEH, U'EC I , 
♦lOEf^.XTIC, YTIC , ICR/0) 

1F< IClTV ,E0. I > CO TO 600 

IF UPPER RIGHT OUPfiRPHT PSkEO FOR, WORK FOLLOWING COOE 
PLOT THE X PXIS 

XVPLNC = <XMPX-XNIN VXTIC 

XUXMIN 

IGR-I 

CPLL PLOTlXLEN, 0, ,2) 

DO to K=I,XTIC 
XUXUXVPLNC 
XSTRT«^,S'STRT*XTIHC 
IFIK.EO. I ) XINC“0. O+XHC 
CPLL PLOT<XINC, 0, 05,3) 

CPLL PLOKXINC,-0. 05,2) 

IF<X1 ,LT. 10, 0) PP-, 15 
IF<XI,CE,IO,O.PND,XI,LT.IOO. ) PP=,25 
IF< XI ,CE , I 00, 0. PND , XI ,LT , I OOC , ) PP“ , 35 
IF<XI ,CF , 1 000, 0 , PND , XI ,LT , I OCiOCO PP • , 45 
CPLL NUNEh'XIHC-PP, - . ) 5 , , I , X I , 0 , , IDET I ) 

IF< ICRID.EQ, IHV) CPLL CP I D< X I NC , VL EN , I CR ) 

XINC-XIMC+XNC 

PUT X FXIS MINIMUM PT ORIGIN 

CPLL NUMB< 0, . - . 15, , t , XMIN, 0, , IC'ECI ) 

CPLL NUMB< 0.,-. 15, . 1, XMIN, 45. 0, IDEC I > 

PLOT THE V PXIS 

CPLL PLOT< 0,, 0, ,3) 

CPLL PLOT< 0, , VLEN,2) 

VTINC«YJNC 

VI-VMIN 
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•M2 

<43 

444 

445 

446 

447 

448 

449 

450 

451 
462 

453 

454 

455 

456 20 
45.’ C 
456 C 

459 C 

460 

461 

462 

463 

464 

465 C 

466 C 

467 C 
466 C 

469 C 

470 C 

471 C 

472 600 

473 C 

474 C 

475 C 

476 

477 C 
476 C 
4 79 C 

460 

461 C 
482 C 
463 C 
484 

465 C 

466 C 

467 
466 
469 

490 715 

491 

492 C 

493 C 

494 C 

495 

4 96 C 


ICP*2 

VSIPT-VMIN 

YV6LNC«< VMflX-YHIM y/YT JC 
DO 20 L-I.YUC 
YSn»T=YS.TRT«YJMC 
CAI L PLOT< ,):i5,YJMC,3) 

COLL PLOr< - . 05, YJMC, 2 ) 

VlnYl+VVALNC 

1F< Yt .LT. 10. ) YS=>-.300 

1F<YI .CE. tO.O.PMC'.Yl ,LT , I 00. ) YS^-.3>^3 
IF<Y1 .GE. 100. 0.6N5. YI .I.T. 10CC. ■> YS-' 426 
1F< YI .GE. I 000 , 0.61)0. Y1 ,LT . 1 00 0 0 .» )":«-. 4 j9 
CALL NUMBC YS, YJNC, , 1 , YI , 0. , lliECS) 

IF< IGftlO.EO, IHY) C)^LL OP I DC Y J))C , KLEM , I GP ; 
VJMC'YJMC’YTIMC 

PUT Y AXIS MINIMUM AT THE OPKIN 
IF< VHIN ,LT. 10 , > YS»- .3 

IF< YMIN. G.". 1 0. 0 , AMO . YM I N . I T . 1 0 0 . ) YE-- . 36 3 
IF<YMIN,GE I 00. 0. AHO, VMIM ,LT . I 000 . ) YS = -.426 
JF< YMIN ,CE . I 000 , 0 , AMO . YM IN . t-T , 1 00 00. > YS = - .469 
CALL NUHB< Y>, 0.0, . I , YMIN , 0 . , IOtC2 ) 

FINISHED UITH Uf'PER RIGHT PL’ACRAHT A.XIS PLOT 
JUMP OVER 4-OUAO AXIS PLOT COOE 


PRINT THE TITLE 

CALL SYnB< 2 . 0 , 6 . 4 , . 2 0 , I T I TL , 0 , , 1 > 
PRINT 1 ST SUBTITLE 

CALL $VMB>' 2 . 0 , 8. 1 0 , . 20 , ISUBI , 0 . , I > 
PRINT 2 MO SU 6 TI Tl E 
CALL SYlie^ 2 , 0 , 7 . 60 ,, 20 ,ISUB 2 , 0 ., 1 ) 
RRINT 3 RD SUBTITLE 

CALL SYMB)< 2 . 0 , 7 . 50 , . 20 , 1 5 U 63 , 0 . , I ) 

ENTER LOOP TO POSITION Y AXIS LABEL 
IFLC -0 

DO 715 N= 2, 15 

1 F<LABV<N>.ECI. 2 H > 1 FLC=IFLG +1 
CONTINUE 

YCL»< YLEN ,'2 , )♦< IFLC* , 1 2 )- I , 66 

PRINT Y AXIS LABEL 

CALL SYMBC - . 70 , YCL , . I 2 , LAE V , 90 , , I > 


/ 




0 
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497 C EHTES LOOP TO POflTJOH X HXIS LPPEL 

496 C 

499 IFLC-0 

900 00 7it N«2, IS 

501 IP<LPBH<N).E0.2H > 1FL&'IFLC«I 

502 ?25 CONTI HUE 

503 XCL=vXLEN/2. )♦< IFLC*. I2)-I , <!.9 

504 C 

505 C PkIHT X t^XIS LFtBFL 

506 C 

50? CPLL SYNe< XC. , - . 70, . I2 ,LhEH, 0 , 1 > 

506 C 

509 C PRINT 1ST POMTIONOL LOPFL 

510 C 

511 CALL Sy«6<RXCI .ftVCI . . 12 ,lAPEI , 0. , 1 > 

512 C 

513 C PRINT 2N0 AOOITIONAL LPBEL 

514 C 

515 CALL SV(ie<P!<C?,RTC2, . I2,LABE2, 0. , I > 

516 C 

517 C PRINT 3RD AOdlTIOHAL LAPEL 

518 C 

519 CALL SYMP<R!<C3,RYC3, . 12,LhBE3, 0. , 1 ) 

520 C 

521 C PRINT NAME 

522 C 

523 CALL SYMEK 12.30,-0.85,.0e,NAME,0.,l ) 

524 C 

525 C PRINT THE SYSTEM TIME AND DATE 

526 C 

627 CALL SVMB< I 1 . 60, -1 . 0, . 08, IBUF, 0 , , 1 > 

c 

529 C MAKE LEGEND 

530 C 

531 CALL SYMB< 12, 00,8.60, . I5,LEC, 0. , I > 

532 C 

533 C UNDERLINE LEGEND 

534 C 

535 CALL PLOT< 12, 00,6.55,3) 

536 CALL PLOT< 13.750,6.55,2) 

537 C 

538 C PLOT DATA 

539 C 

540 C INITIALIZE LEGEND PRINT COUNTER 

541 COUNT- 0 

542 ALSZ-XLEN, ■'97. 56 097 

543 C 

544 99 DO 70 M- I , NCURV 

545 C 

546 C ASK USER WHETHER PAUSE IS WANTED TO CHANGE PEN COLOR 

547 C 

546 MRITEvLU, 144) 

549 144 FOPMATC.V, “CHANCE PEN NOW AND, OR ENTER 'O' TO PPOifEO 

550 READCLU,'*) ICOL 

551 C 


1961 


" > 
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56;- C fi^lN hCTUAL CiATrt PLOT 

553 C 

554 YIMC - VI £().'< VdAX-VnlN) 

555 XltIC :<LfH,'< X.'IAX XMIH > 

556 DO 30 N"»,Kr’«TA 

557 1E( t1,N),£0,'jiO,9 ) CO TO 81 

553 C 

553 C Tt o-T FOP DOF CPAPH 

560 C 

561 IF.'IF-LT,ME 3) CO TO 4, ’5 
5TS C 

5 oj c IF ChP cr„fh urr-^: Fou.oi'iNC fi.oe 

504 C 

565 IF<M,EO,l) CALL PLOTi !<C < M , N >- X I tir , VC ■ M , H > , 3 ) 

566 IFOI,CT.I> CAIL PLOT( )<C< M , H )- X I HC , YC', M, H >, 2 ) 

567 CpIL PL0T<XC< M,N >,VC<»1,N ',2> 

568 ChI L PLOrv;-:C(M,H ), 0. 0,2) 

563 CO TO 80 

570 C 

571 C IF LIHFhP op ScATItP PLOT VAMTLD UOPK FOUOWIKC CODE 

572 C 

573 475 IF<M.ED, I > 5YM«0, 

574 IF<M,EO,2> SYM«1 ■ 

575 IECM,FC(,3> SY'l-2, 

576 JF<I1.E0,4) SYM'^n . 

577 lFsM,EO,5) SYM-14. 

578 IF<H,EQ,I) CALL S YflE< XC < M , M ) , YC < M , N ) , , I , SYM , 0 , , - 1 ) 

579 1E<N,CT.1) Call S VMEv XC < M , N •>, YC < FI, N , I , SVM, 0 ,1PLT) 

5S0 eo cofitinue 

531 81 IF< IhV,EO,0) CO TO 34 

582 IF< IPV , EO , 2 ,> CO TO 69 

583 C 

584 C PLOT LIME OF AVE.PftCE FOR EACH DATA SET 

585 C 

586 VCOR< M ) = C AVG',' M )-VNIH 1*VIHC 

587 CALL SVMB< 0,00,YCOR(M>,ALS2,LAVC, 0, , I ) 

588 Call svmb< xlfm» , i , ycoR': li >, , i o, imvc, 0, , I > 

589 C 

590 69 IF<IAV,LT,2) CO TO 94 

591 C 

592 C PLOT LIME OF AYEPaOE FOR ALL DATA SETS 

593 C 

594 C TAVC=( ALCVS-YMJM)»VINC 

595 CALL PLOT< 0 , 00, AVALL,3) 

596 CALL PLOKXLEM, AVALL,2) 

597 CALL SVrt6< XLFH, AVALL, , 1 0, lAVG, 0, , 1 ) 

598 YF1X«AVhLL- ,20 

599 CALL SYH&CXLEM, YFIX, , I 0, lAVT, 0, , 1 > 

600 C 

601 C PRINT LECEHD SYMOFfLS AND DEFINITIONS 

602 C 

6 03 54 C 0011 1 -C DON, ♦ I 

604 C 

605 C SET «I LEGEMD Lh.PEI 

606 C 





i;;< jflOT OPTSi LKI 3i;.3fi1 To£., iCp., l>5( 

60? IFCCOUNT.NE, I ) CO TO 1>5 

606 C«LL SY(IB< 12. I O.e.-tO, . 12, 0, , 0. , -I > 

60'f' ChLL $ViiB< (2 . 20, 0 . 30, 0. 1 2, ICVt , 0, , t ) 

610 CttLL &yna< t2. 50, 0. 30, 0, l2,LLfcCil , 0, , o 

61 I C 

612 C SET #2 LECFHC LOS-EL 

613 C 

6M SiS IE<COUNT,H£ 2) CO TO '36 

615 CrLL SVMD< 12, 10,0.20, . 12, 1 , ,0. ,-l > 

616 C«lL SVMB'. 12. 20,0. I 0, . 12, 1C V2, 0, , I ) 

617 C0LL S‘TI10> 12. 50, 8 . I 0, . 12, LLEC.2, 0. , I > 

610 C 

610 C SET «3 LECFUCi LO0EL 

620 C 

621 06 1F<C0UNT. HE. 3) CO TO 07 

622 C«LI. SyH0< 12, I 0, 0. 00, . 12,2, , 0. , -1 ) 

623 COLL SYrie< 12.20,7.00, , 12, ICV3, 0, , U 

62<» CALL SVMb< 12.50, 7.00, ,12, LLEC3,0.,1 > 

625 C 

626 C SET #4 LECENO LABEL 

627 C 

628 07 IE<COUNT.NE.<»> CO TO 08 

620 CALL SVIIB< 12. 1 0, 7.00, , 12, 1 1 , , 0, ,-1 ) 

630 CALL SYMBt: i: .20,7.70, . 12, ICV4, 0. , 1 ) 

631 CALL SYI-IB , ,i. 50, 7. 70, . 12,LLEC4, 0. , 1 > 

632 C 

633 C SET #5 LEGEND LABEL 

>>34 C 

435 93 IF<COUNT.NE.5) CO TO 70 

636 CALL SYMB< 12, 1 0,7.60, , 12, 14 , , 0. ,-n 

637 CALL SVMB< 12. 20,7.5 0, , 12, ICY5, 0. , 1 ) 

630 CALL SVMB< 12. 50, 7.50, . 12, LLEC5, 0. , 1 > 

630 C 

640 70 CONTINUE 

641 C 

642 C** TERMINATE PLOTTING MODE 

643 C 

644 CALL URITE 
640 C 

646 C»» PROGRAM TERMINATION 

647 C 

640 STOP 

640 END 
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I 


-ARE 13 


650 

651 

65i C»* 

653 C** 

654 C»» 
665 C»’ 
656 C 
66/ C»» 
658 C 
658 

66 0 C 

661 C 

662 C 

663 C 

664 C 

665 000 

666 
663 
668 

669 

670 

671 C 

672 C 

673 C 

674 

675 

676 

677 

678 

679 

680 C 
661 C 

682 C 

683 

684 

685 

686 C 

687 C 

688 C 

689 

690 

69 1 

692 

693 C 

694 C 

695 C 

696 

697 

698 

699 
7 00 
701 
7 02 

703 

704 


F7M, 08TSi LKl 3i57 Pd 7UE., 22 SEP., 192 


out four I ME FOUMD< KM I N , VM I M , Xlt.V I , VM.*.-, XL c M , ■! L TN , I t'FC I , tti£C 
♦.XTIC.VTIC, lOklOf 

TCMJf^C)' WILL &£f^rjrnTe rMf *♦ 

4- KOT TVf^E. *♦ 

COddOH STATf.dFMrS 

CC'.:.‘^uN 1CCC'< I 92 ), XOFCP, Yuf i P, IPh"' 5 » 

Dll' dClOM STATE MKUrS 

DATh STATfllEMrS 

KVAl.HC KMd!<*2 )/KT IC 

XTlHi>XLf.M,"KTIC 

KIMl-KTINC 

.KHC-.KTIMC 

IGP=>I 

Ki 

PLOT P0UMDAPIE9 OF PLOT IHCl.Uf'IMR THE Af'ES 

CALL PLOT<XLEN, 0. ,2> 

XMKS=YLEN,.'2, 0 
CALL PLOT< 0, ,XMXX,3 ) 

CALL PLOT<XLEH,XM)i:X,2) 

CALL PLOT< 0. , YLFN, 3 ) 

Call PLOTLXLEH, VLEN,2) 

EMffcX LOOP to MAKE TIC MAFKS WITH VALUES 

DO 199 I-I,XTIC 

XI-XI+XVALNC 

IF< I .ECl.l ) XIHC -O.O'XMC 

Male tic MARK 

CALL PLOT<XniC, 0, 05 , 3 > 

CALL PLOT<XIHC, 05,2) 

CALL PL0T(XIHC,XM!':.X*. 05,3) 

Ca'.L PL0T<X1HC ,,XMX,X- . 05,2 ) 

SET APPROPRIATE SPACING FOR THE TIC HhPK VALUE 

IF<XI .CT.-1 00 00 . 0, AND. XI , LE. - I 000 > AA= ,44 
IF<XI .CT, -I 000.0. AND. XI .LE.-100) AA=,36 

1F<X1 ,GT. -I 00, 0. AND, XI ,LE . - I 0 > AA= .26 

IF<XI .CT.- I 0,0. AND. XI .LT. 0) AA^.20 

IF<XI ,CE, 0. 0, AND. XI ,LT, I 0. 0) AA= , 12 
IFCXI .CE . 1 0, 0. AND , X I , L T . I 0 0 , ) Ah= . 20 
1F<XI .CE . I 00. 0. AND. XI , LT . I 000, ) AA • 28 
IF<XI ,CE, I 0 00. 0. AND. XI ,LT . 1 0000 ) AA- ,36 
CALL NUM8< XINC-AA, - . I 5 , . 08 , X I , 0 . , I Ut L I ) 


> 



t 


PACE 14 EClUAO OPT>; 


LMI 


3.53 fJt To£. , 


) 


I 


J 

3 

3 


709 C 

?0« C TEST FOP CPlt< PATTEPH 
707 C 

709 IP< ICPIO.EO. IHV) CALL CM D<X MIC , YLEH , ICR ) 
70S> IS>9 XIHC*XIiIC*XHC 

710 C 

711 C POT X AXIS MIHIM'JM AT SOTTOM 

712 C 

713 XAA--AAXI.I 

714 CALL 1IUMP<’XAA, - . 15, , 03, XNIN, 0, , K'ECI I 

715 C 

716 C PLOT THE V p:.IS 

717 C 

716 YJNC“YLEI./YTIC 

719 YMYV = ,XLEtl/2,0 

720 C 

721 C PLOT Y-AXIS AHC> 00UH3ARY 

722 C 

723 CALL PLOT< 0., 0, ,3) 

724 CALL PLOT< 0. ,YlfH,2> 

725 CALL PLOTLVn.Y, 0, ,3> 

726 CALL PLOT< YMVY, YLEH, 2 J 

727 CALL PLOTCXLEW, 0. ,3) 

726 CALL PLOTCXLEM, YLEH,2) 

729 VTINC-VJNC 

730 Yl-VMIN 

731 ICR«2 

732 YVAl.NC-<YMAX»2. O/YTIC 

733 C 

734 C ENTER LOOP TO PLOT TIC MAprS WITH VALUES 

735 C 

736 DO 209 K=1,YTIC 

737 C 

739 C MAKE TIC MARK 

739 CALL PLOT< , 05, YJHC,3) 

740 CALL PL0T<-.05,VJNC,2> 

741 CALL PLOT< YMVY», 05,YJNC,3) 

742 CALL PLOT< YMVV-.05,VJHC, 2) 

743 VI-VI+V'ALNC 

744 C 

745 C SET APPROPRIATE SPACINC FOR TIC Ma®K VALUE 

746 C 


747 

IF< 

VI ,LE, 

-10000) 


vs=- 

.5212 

746 

IF< 

VI .CT. 

-1 0000.0. AND. VI .LT.- 

10 0 0.) 

VS-- 

.4712 

749 

1F< 

YI .CT. 

-tOOO.O.ANU.VI .LE.-I 

00. ) 

VS-- 

.4203 

750 

IF< 

VI ,CT. 

-100. 0 .AND , VI .LE . - 1 0 

. } 

YS-- 

370-1 

751 

1F< 

VI ,CT. 

-1 0. 0. AND. VI .LE. 0) 


vs-- 

.520 

752 

1F( 

VI ,CE, 

0. 0, PNC'. VI ,LT. 1 0. > 


VS-- 

.250 

753 

IF< 

Yl ,CE. 

1 0. 0. AND. VI .LT . 1 00. > 


VS-- 

.3004 

754 

IF< 

VI .CE. 

too. 0. AND. VI .LT. 1000 

. > 

vs»- 

.3508 

755 

IF< 

VI .GE. 

1000 . 0 . AUC . VI .LT. 1 00 

00. > 

YS-- 

.4012 

756 

1F< 

VI .GE. 

I 0000. ) 


vs*- 

.4812 


757 C 

7'J8 C PRINT VALUE 
759 C 


* 


SEP . , I 9C 1 


r 


L!<I 


3; 63 TUE, 


1 iiftl 


''.>C.E 15 FOUnr OE-T^I 


■>EE . , 


760 CALL HUMe< YS, Y,tKC , , oe, VI , 0. , It'hCS > 

761 C 

762 C TEST FOR ORIC- RhTTCRN 

763 IF< ICRIO . eo , I HY ) CALL CR 1 0< Y JMi , .VL EM , I SR > 

76-J 205 Y JHC«VJMC«Yf INC 

765 C 

766 C PUT Y AXIS tllNIMlJtl HT SOI TOH 

767 C 

765 1F< YMIH.ee. -I 0000. ) YS=-.62) 

765 IFCYMIH.CT . 00 00 . 0 .Alto. VMIH.LE , -I 000 . > YS--.47I 

770 IF< YMIH.CT . -t 000, 0. Om<. VMIH, IF -100.; YS ,420S 

771 1F< YMIN.CT , -I 00. 0. AtiO . YMIM , LE . -1 0 , > YS«-,3.’04 

772 IF< YMIH.CT . -I 0, 0 ,MHE. YMIH ,l e , 0. > YS---.720 

773 IF<YHlN.Ge.0.0.AMt.,VMIN.LT.I0. ) YS--.250 

774 IFOYMIN.CE, 10.0, AHC'.YrilH.LT, 100. > YS--.3004 

775 IKYMIN.GE, too, 0. AMU. YMIH.LT. 1 000. > YS,»-.360e 

77E. IF< YMIN.GE , 1 000 . 0. AMU .YMIM.LT . 1 0000. > YS--.4012 

777 IFOYIt.’N.GE. 1 0000. ) YS.»-,4612 

776 CALL HUMB< VS, 0. 0, . Oi?, VMIH, 0 . , lUfc 2 ) 

779 C 

760 C** RETURN 10 CALLING PROC.PAM 

761 C 

762 RETURN 

763 ENt> 
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• * HO W„.'HINGS •• NO EPP0R6 »* 


PRumPhM 1 


64« 


CONI10N 1 


201 


f J W 


f’HC.E U FTH, OFTSi LKI f'i> TuE , , i2 Vtf . , l>SI 


7t4 SUDFOltTiMe C.F 1 1'< <1 1 NC , *ll EH , I &R > 

785 C***********9****** *♦ **♦ ♦ *««* 

766 C*» SU-frOUTIHE OS'IC' WUL tUFj. F I MPOCE H *. 
787 C»* CfJt> PHTIEftM ovfcft the PLOT. .. 

70S C***' 

780 C 

780 C«* COrlfiON Sjnu:ni HT$ 

791 C 

792 COMflOM IOCe< I 9E'),X0PCP, t'OcO"', IPhP' > 

793 C 

79.4 C OIMtHSIOH 9THTE;iEinS 

795 C 

79e C OhTh ST«Tfc,irnTS 

797 C 

798 C C«LL LOCICHL UMirS 

799 C 

800 C CALL PLTLU< 12) 

601 C CPU LLEFT 

802 C ChLI 6Fhi:T< )3. , 10. ) 

803 C 

804 C VEftTICPL LINES 

805 C 

806 IF< IGR.NE. > > CO TO 22 

807 CALL PLOT<PIHC, 0.00,3) 

808 CALL PL0T<AINC,AI EN,2> 

809 GO TO 77 

810 C 

811 C HORIZONTAL LINES 

812 C 

813 22 CALL PLOT< 0 . 00, A INC , 3 > 

814 CALL PLOT^ ALEN, AINC,2) 

815 C 

816 C*« RETURN TO CALLING PROGRAM 

817 C 

818 77 RETURN 

819 ENO 
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NO WARNINGS •• NO ERRORS *♦ PROORmMi 37 COMMON i 201 




0 



PACE 1 7 

FTH. OPTS) LKI 

3) S3 p;i lUE., 

, 22 G£f , , 

I9d) 

820 

SUCfeOUTINE PPLOT 





fi2t c*^'***'**************'****************'****' 

C*» 'SMBSCUTINE 'PPLOT ‘ Cf.Mf:P(HTES A PIE *• 

• £} C*» CHmI?T CPmPM plot. •• 

«24 C 

825 C 

82'5 C»* COflMOH STATCfItMVS 

6* /* C 

828 COdnOH IGCe< 182 >,XOPCP , VgPCP, If'Hf" 5 > 

828 C 

830 C MMEN5IOH STmTEHlIUS 

• il C 

• 32 f> I ME MCI ON lt»UM< t 0 ), LOEt' 1 0>, IOOMCm 1 Oj , I 0'-2< I u <, l.Mt 7>' I 0 »,L8t'4< I 0>, 

• 33 •LOBU 10>,OnT< I 0 ) , DPC Tv I 0 ) , IT m 2 1 >, ICUC- 21 j, 

• 34 ♦I.8b6< tO),L«B7< I 0^L868< IO>,L8f8v | 0 ),CmBI Oc t 0 ) , I F t k< 2 » , IEX< I 0 ) . 

• 35 »K< 300>. V<380> ,XC< 38 0 ), VC< 3«0>.LPCC< 2 >, llkf'L'' 2 J 

• 34 C 

• 3? C C<0T8 STrtTEflEMTS 

• 39 C 

839 DATA 1PER/2,2HX / 

840 DATA LPCC/2,2H< / 

•41 DhTA IS,F'C22,2H) / 


•42 

DATA 

mT240,2('*2N 

/ 

1 PIE PLOT TITLE 

• 43 

DATA 

I&UB/40,28*2H 

/ 

1 SUBTITLE 


644 

Data 

LaBI/18, 9»2H 

/ 

1 SLICE 

LABEL 

) 

• 45 

DATA 

LAe22ie.9*2H 

/ 

1 SLICE 

LABEL 

2 

646 

DATA 

LAB32I9,9*2H 

/ 

1 SLICE 

LABEL 

3 

847 

DATA 

LAB4,''ie, 9*2H 

/ 

1 SLICE 

LABEL 

4 

848 

DATA 

LAP52ie,9»2H 


) SLIC'^ 

LABEL 

5 

b49 

DATA 

LAP62I8,9‘2H 

/ 

( SLICE 

Label 

6 

• 50 

DhTA 

LAri7/l8,9*2H 

/ 

1 SLli'C 

LkBEL 

7 

•51 

DATA 

LAB02 1 8, 9 «2H 

/ 

1 SLICE 

Lap EL 

6 

•52 

DATA 

LAB92I8,9'*2H 

• 

1 SLICE 

LABEL 

9 

• S3 

DATA 

LAB) 0/18. 9«2H 

/ 

1 SLICE 

LAE<EL 

to 


•54 C 

•55 C** FETCH LOGICAL UHIT 

• 96 C 

• 57 CALL RMPAftv'IPARJ 

• 58 UI=IFaR<I) 

• 59 C 

•60 C ENTER TITLE OF PIE CHART 

661 C 

•62 WRITE<LU,20I > 

•63 201 FORMATCX. “ENTER GRAPH TITLE) ") 

664 READ<LU,202) <1TIT<K>, K-2,20) 

•65 202 FORNAT< I9A2> 

• 66 C 

667 C ASK USER FOR ANY AOOITIONAt. SUBTITLE 

e<9 C 

•69 WftITE<LO,203> 

870 203 FORMATCX. "FNTEk 5UP71TIE. IF NOl'E L't l/TEC, HIT BBTOr-H 

8?f * <•> 

872 REMr><LU7204 ) < lOJE'l K>, K'^2,20> 

873 204 • FOkNAK I 9A2 > 

874 C 



KhCE 1$ fnOT O^TSi L»| 3. S3 HI JUE . 2? I9dl 


' 67S C ttSK U0E(< FO« HUHf<£ft Of (*IE SLICES 

S7S C 

977 UlinaCLU, lot > 

' 979 101 FuftnOK/. "EHTEIil HlMfJtft OF PIE SLICES. “) 

979 REOt><LU,») NPC9 

oso c 

' 001 C INITIALIZE OATA 

*02 C 

993 TOTO'O.O 

094 OTPC-O.O 

995 pMt'fc.X-.CS 

999 C 

9*7 C ENTER LOOP TO ENTER OATA 

68$ C 

099 00 10 1-I.NPCS 

990 URITECLU, I02> 

991 102 FOniATC/, "ENTER DATA HEM, "> 

892 REAOCLU,*) OmTC I ) 

993 |F< I .OE. t0> CO TO 129 

094 WRITfCUMO?) I 

095 103 FORMAK/, "ENTER LABEL •",ll,‘ CHc.yHO C He f-nC Tf «?. > i ") 

096 IF< I ,E0. 1 ) REACKLU, I 04 > <LAei<M>, M-2, / 

097 IFC I .E0.2) REoexLO, 104) CLABZCM), M-2,9, 

099 IF< l,ECI.3> REAOCLU, 104) <LAB3>'M), M-Z,?) 

099 IF< I .E0.4) REAtXLU, 104 ) <LAB4<H), M*2,9) 

900 IFCI.EO.S) REACXLU, I 04 ) CLAOSCM), M«2,9> 

901 1F< I .E0.9) REAtXLU, I 04 > <LAB6<M), M-2,9) 

902 IF< I .£0. 7) RErtOCLU, I 04 ) <LAB7< M ), M*»2,9> 

903 IFCI.CO.O) REHtXLU,l04) CLAPSCM), N*2,9> 

904 IF< I ,E0.9) REAOCLU, 104) CLAB9CM), 11 = 2,9) 

905 104 F0RMAT<9A2) 

906 128 IFCI.EO.IO) UR 1 TEC LU, 1 05 ) I 

907 105 FORMATCy, "ENTER DATA LA9FL »",I2," <MhX=13 CHmR)i ") 

909 1F< I .EO. 10) READCLU l 06 ) (LABtOCM), I1«2,9) 

909 106 F0RNATC9A2) 

910 URITECLU, 301 > 

911 301 FORMATC/, "E.VPLODE? CV-VES, H = HO)i ") 

912 REAtx'LO.302) lEXP 

913 302 FORMATCAI) 

' 914 IFC lEXP.EC. 1HV) IEXCD-1 

915 IFC lEXP.EQ. 1HH) lEXC 1 )-0 

916 T0TD»T0TD + C'AT< 1 ) 

' 917 10 CONTINUE 

916 C 

919 C CALL LOGICAL UNITS 

J 920 C 

921 CALL PLTLUCI2) 

922 CALL LLEFT 

J 923 CALL 6FACTC 15., 10. ) 

924 CALL PLOTC 1 , , 1 . .-3) 

925 CALL PLOTC 0, , 0. ,3) 

> 926 C 

927 C PRINT TITLE 

929 C 

929 C ENTER LOOP TO FIND MIDDLE POSITION FOR TITLE 




!.ce 


^il i "." , it ! 


1 1 


>30 

»3t 

^ J7 

*34 

43 J 

*37 

» 3 f 

43 * 
■>4 0 
*41 
*4S 
*43 
944 
*45 

347 

* 4 * 

*4* 

*50 

*31 

*5S 

*53 

*54 

*55 

*54 

957 

*56 

* 0 * 

*40 

*61 

*62 

*63 

964 

965 
*66 
*6 7 
*6* 
*6* 
*70 
*71 
*72 
*73 
974 
*75 
*76 
*77 
*76 
97* 
*30 
*et 
*62 
963 
9S4 


I3> »ir'l.OT o6T»i LXI 


irf -. 


IFLf.-O 

DO 65 J-2,20 

IF< inr< j).fo 2 M ) iFuc-incH 

«5 COhTIMME 

KTIT-2,50k lf LC*..7> 

C«ll 6VKf-< KIl 1,6. 00, , 20, JT:T, 0 , I ) 

C 

C 1-MMT SUOriTLE 

c 

C CHTt* LOOP 10 PIMC Mlt-Mf' POimOH li.P -i ^riTlE 

IFLC-0 

60 75 J«2,20 

IF< 160B< J).FC(.2H 1 IFlC'lflCM 

75 COHTINUE 

XTIT=>3,5»< 1FLO.I5) 

COLL Sr«B<X11 r, 7, 76, , 15, ISUb, 0, , I ) 

C 

C COilPUTE PkPCLMlM'iE 

C 

DO 30 K» I ,Mf'CS 

XST-6.5 

XL?"0, 

V6T-3.5 
R6D*3. 0 

DPCT< K )■>< DOK K ),MOTP 1*360, 

6CT«<D0T<K ),'I0IP )*1 00,0 

SDTPC*DTPC 

DTPC-DTfC*r.PCT-,'K> 

PLOC DTPC-CDFCr^K >,''2,01 

c 

C COl.CULOTE 61 ICE CUT 

c 

EXX°R6C)fX*C0«<PL6C*, 0174032*2*2 I*::-.! 
EXV-RAD£X*6IN< PLOC*. 01 74‘'. 32-;<2 52 WV6T 
IF< 1EX<K>,EO, 1 ) XST'EXX 
IF< 1E,'«X>,E0, I ) VST-EXy 
XC<K >-ROO«rO -.< DTPC*, 01 745 i??262 1*X6T 
VC< X )«ROt'«51l.'<(ifPC* . Ot 74'.3:'5252 1*VST 
XEX - PmC'*C0 ".' *D1PC* . 01 74 572 ^,.'52 mXST 
VEX-RPf<*5nK oDTPC*, 01 7453,. *257 ;«VST 
C 

C COLCULOTE PLoCtllEMT OF PLFCLHTOOE FlbUff 

C 

IF<PCT,LT,3> CO TO 417 
lF<PCr.CE,3) SBT-.60 

XCP^^'RPP- SBT )*C06<PL6C*, 01 74532*252 J*XST 
YCP-<PtlP -561 1*SIN<PLrtC* , 0 I 74532*252 ,<♦ Y6 T 

c 

C TEST PEPCEKTflCE FOP COPRFCT PLOCEUENT OF LPPEL 

C 

417 IFCPLPC ,LE , 30 . 0 .OP.P/.ftC .CE , 270, > XL5» . 1 0 
C 

C PLOT LINE 5 OF PUCE 

CALL PLOT(X6T,Y5I,3 J 
CAl.L PLOT<XC<K), YC<K 1,2> 


« 



« 


s«CE ?(> Pt-LOl OF-T$i 


LXI 


3 I S3 PM Ti'C . , 3i =EP, , t ’ill 


I 


t 


) 

J 

3 

) 


; 


9«9 

909 

9S7 C 
960 C 
969 C 
950 
991 
99^ 

993 

994 

995 ;'0 
99t C 

99? C 
999 C 
999 
) 000 
t 001 
I d<Ji 
I 003 
I 004 
1005 C 
1004 C 
1007 C 
I 006 
»009 
1010 
ion 
1012 

1013 C 

1014 C 

1015 C 
1014 C 
1017 775 
1010 

1019 C 

1020 C 

1021 C 
I 022 

1023 C 

1024 C 
1029 C 
1 026 

1 027 C 
102« C 

1029 C 

1030 

1031 

1032 45 

1033 C 

1034 C 

1035 C 

I 036 222 
;037 C 
1033 C 
'039 C 


COIL 7L0T<M5T,VST,3) 
cot L PLOr<XEK,VEX,2> 

00014 PIE 60UMr00|C9 

00 20 J«5t'TPC,OTPC 

X< J )-Prtf-*C0t < n f>';T< J >• . 01 ?453.''-^.'S2 >*,-.9T 
v< PLC'OK . 01 ?45 3: '<2*5S l•y■>r 

IF<3.FCl.t.Mf'C) COLL PLOT' ?:< J >, V< J y , 3 > 

Coll plot- k* j>,v< j»,2; 

CPKT IP'JE 

PLOT LIME TO PhTO LuPEL 

XCL»PmD»C 03<PLOC* . 01 7453.’ 92S2 i*XST 
VCL«RMfi»ilN<PLOC» . 01 74&3|C9<'52 » + V6T 
cou pt.or<xcL,rcL,3) 

;<CLl.«<P0C>*. 50>»CO£.‘. fine* . 01 74vT>9y5i T 
VCLL-< R«C>* . 50 >*f Ilf. PLhC • OI .’•! 5 •♦V5T 

cou. PLOT<XClL,VCLL,2) 

PRIHT PEPCEHTACE 

IP<PCT.LT.3. > (.0 TO 7?5 

COLL HUMEK XCP, YCP, . 1 2 , PCT , 0 , 0 , - 1 ) 

IFCPCT.LT. 10) XCP*XCP*.12 

IfiPCT.CE. 10) XCP«XCP*,25 

COLL SVMP< XCP, TCP, , 12, IPi F , 0. 0, 1 ) 

PRINT LA-'FL FOR OATo flfi RlpnON 

TEST IF LABEL ON RIGHT SIDE OF PIE 
1F<XLS.E0. .10) XCL“X':LL*XLS 
1F<XLB.C0. . 1 O.ONO.PCr .OE . 3. 0) CO TO 123 

1NITI0LI2E VARIhSLE 

IFLC«Ci 

TEST FOR 1ST LAPEL 
1F<K.NE. I > CO TO 222 
ENTER LOOP TO POSITION LAPEL I 
00 45 H-2.9 

IF<LAeKN).E0.2H > IFLC'IFLC*! 

CONTINUE 

TEST FOR 2ND LAPEL 

IFOC.NF 2< CD TO 333 

ENTER LOOP TO POSITION LABEL 2 





i\ f-flOT OrTS' LI 


DO ?5 H-2,9 

IF<Lfte?<M>.E0,2» > IFI.l, - IKlO* I 

COMnmiE 


TEST FOP 3PO t flPEL 


IF<K,NF.3) GO TO ‘(■T4 


ENIEP LOOT TO PO-.ill'.'H IhTTL 3 
t'O 6( M*2,9 

IFT LhF'’' H I , f , ''ri - III.', [FLO* I 
COHT INiit 

TEST FOR -TTH ImFiEL 
IF<K.Nt:,4> C" to STS 
ENTER LOnp TO PCS ITIOH Luf'EL 4 
CO 77 H=-2,9 

IF< LPB4< H ) , EG . 2H > 1FLC=IFLG«I 
CONTINUE 

TEST FOR 5TH LOBFL 
IF<K,NE,6) CO TO SoS 
ENTER LOOF' TO FO'tTIOM I.mPFL 5 
CO 60 H"2,9 

IF<Lfi05fH >,EO,:-H > I T L 0 - I F uC< I 

CONTINUE 

TEST FOR 6TH LABEL 
IFsK.NE.S) CO TO 777 
ENTER LOOP TO POSITION LoEEL b 
CO 99 :i=-2,9 

IF<LAB6<N),E0,2H ; IFLo=IFLGf| 

CONTINUE 

TEST FOR 7TH LABEL 
IF<K.NF 7> CO TO ess 
ENTER LOOP TO POSITION LmPEL 7 
CO 707 N=2,9 

IF<LhB7<H),E: ,2H ,) IFIC IFlO»I 

CONTINUE 


TEST FOR OTH LALLL 



PAGE 

22 

1 095 

SP8 

1 096 

C 

1 097 

c 

I 090 
1 099 

ttoo 

c 

1 101 

»09 

1 1 02 

C 

1 1 03 

C 

1 1 04 

C 

1 1 05 

999 

1 1 06 

C 

1 1 07 

C 

1 1 oe 

1 1 09 
1110 

C 

1111 

909 

1112 

C 

1113 

c 

1114 

c 

IMS 

1 000 

1 1 16 

c 

1117 

c 

1 1 16 
1 I 19 
1 120 

C 

1121 

144 

1122 

C 

1 123 

C 

1124 

c 

1 125 
1 126 
1 127 
1 I2B 

1 99 

1 129 

C 

1130 

C 

1 131 

C 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

123 

1 142 

C 

1143 

C 

I 144 
' 145 

• 146 
1 147 

• 148 
: 149 

C 


FPLOT OPTSi LXI 


3 I 53 FM TOE. , Si SEF , , 


|F<K.NE.e> CO TO 

ENTER LOOP TO POSIT lOM Li^OEL 6 

00 e08 N»2,9 

IF<LPBe<N).E0.2H ) IFIG-^IFLC»I 
COHT IHUE 

TEST FOP, 9TH LOBEL 
IFTK.NE.S) CO TO 1000 
ENTER LOOP TO POSITION LOBFL S 
00 S09 N=2,9 

IF<LPtiS\N).Ei3,£H ) IFLC*IFLC»I 
CONTINUE 

TEST FOP t OTN LPPEL 
IF<K.NE, 10) CO TO 199 
ENTER LOOP TO POSITION LOPEl 10 
DO 144 N“2,9 

IFILBBI 0<N>,EO,£H ) IFLC=IFLC*I 

CONTINUE 

CPLCULPTION FOR LPBfL POSITION 

IFvXLE.EO. ,10) CO TO 123 
POS“l .6 

IF<PCT.LT,3. > P0S«2.2 
XCL«:<CLL + < IFLG* ,2)-P0S 

TEST FOR AND PRINT CORRECT LABEL 

IF<K.EO,I> CALL SVMBCXCL.YCLL, . 10,t ABI , 0. , 1 ) 
1F<K.E0,2> CALL SYMB': KCL , YCLL , , 1 0 , L ABC , 0 , , 1 ) 
IF<K.E0.3> CALL SYMBv' XCL , YCLL , , 1 0 , LAB3, 0 , , 1 ) 
IF<K.EO,4) CALL SYMB< KCL , VC LL , . 1 0 , L AB4 , 0 . , 1 ) 
IF<K.E0,5) ''ALL SYMB< XCL , YCLL , . 1 0 , L ABC , 0 , , 1 ) 
IF<K.ECr,6) . .L SYMB< XCL , YCLL , , 1 0, LABS, 0 , , I ) 
IFCK.EQ.?) CALL SVMB< XCL , VCLL , . 1 0, L AB7 , 0 . , I ) 
IFCK.EO.B) CALL SVMB< XCL . YCLL. . 1 0 , LABS , 0 ,, 1 > 
IF<K.EQ,9) CALL SVMB< XCL , VCLL , . I 0 , L AB9, 0 . , 1 > 
IF<X.EO.10> CALL SVMB< XCL , VCLL ,, 1 0 , LAB 1 0 , 0 1 > 

IF PERCENTAGE LESS THAN 3X PRINT PCT AFTER LABEL 

IF<PCT.CE,3. ) CO TO 30 

1F< XLS . NE . . 1 0 ) XCL-XCLL- . 60 

IF< XLS.EQ, .10) XCL = XCL-< IFLC» . 1 2 I ,49 

CALL SVMBC,YCL, VCLL, , 1 2 , LPCC , 0 , , I ) 

XCL = ,XCL+. 12 


19S1 



> 


••ACE 

2 J 

PPLOT OPT 61 LKI 

3iS7 

• )S0 


CALL miMP< xrt.,YCLL, 

12 , ACT, 0. , -1 ) 

• 151 


XCL-XCL* . 12 


' 152 


CALL S'CMEKXCL.YCLL, 

. 12 , IPLR, 0 , , 1 ) 

' )53 


XCL-XCL*. 12 


•154 


CALL SVMr<<XCL,VCLL, 

. 12, IPPC, 0. , 1 ) 

■ Its 

30 

com IMUE 


’ 156 

C 



1 157 

c 

TEFtMINArE ELOTTINC 

MOLE 

' 156 

c 



• 156 


CALL UPITE 


■ 160 

c 



•16) 

c»* 

SEIUPH TO ChI.LIMC PPOCSmM 

’ 162 

c 



1 163 


RE lUftH 


1164 


END 



-IM-l-f conr- f<EV, 2 &iO 


• ♦ MO W 1 IFMIHGS NO ERT'OI^S »* PRuGfAMi 4'ji^O COMMON I 




20 ) 



:0H 3i04i Ji3S2 

JPlOT 3^553 43157 ACI-O^ttft JhCi.'hIh IIITERhiTIvE PLOT PPOOfMtl 

■OiJAO 45160 46677 

6RI0 46700 46744 

PPLOT 46745 60434 

PLOT 604?5 6076t 

SVMB 60762 62236 

AXtS 62:37 63433 

LIMES 63434 64151 

SC.HE 64 152 65fi26 

HUMP 65U27 C.5657 

FTirE 65660 66'5I 6»2067- 1 !<301 PEV.201 7 760771 

SMPwl> 66152 66214 9 2 06 0 - 1 M 025 Pt7,20l3 761106 

IASS 6t:2I5 66227 24S38-I!<14r PCV.2001 75o701 

ERPO 66;-r'0 66317 24>6'0" 1 i<250 PEV 2001 771 122 

ERO.E 66720 66320 2488S- I i<24 6 PtV.2001 750701 

.RTOI 66:21 66433 243S8 - 1 X063 PEV.2013 7SI230 

.EIO. 66434 67651 240:<6- 1 X326> PEV.2026 600706 

FMTIO 67652 71 1 01 24'353 - 1 X 72? PEV.2O70 SOOSIS 

• OPM'* 71102 71 125 24S:'2-i:'.?25 »',FV.2070 800703 

.FPAU 71126 71231 2456S 1X324 PEV.2070 600731 

.EXIT 71232 71305 24588 - 1 X:'i20 F.Ev.2030 300731 

.lOCL 71306 71407 52328-1X305 REV. 2030 800731 

.FNCV 71410 73662 2495S-I.X333 REV. 2026 S0O709 

.lAEft 73653 73766 245:-i6- | X32 1 REV. 2030 800731 

.UFMP 73767 74001 24558-1X256 REV. 2030 800731 

.FIO. 74002 74256 24553-1X330 REV. 2026 800708 

.FIOI 74257 74336 24558-1X322 REV. 2030 800803 

APS 74337 74345 24558-1X176 PEV.200I 750701 

.RTOR 74346 74440 24558-1X064 REV. 2026 800505 

PMAME 74441 74506 52068- 1X035 REV. 201 5 771121 

LU6LLI 74507 74564 92067-1X257 REV. 2013 750228 

REIO 74565 74711 92067-1X275 REV. 2013 750316 

LIflEM 74712 74732 92067-1X477 REV. 2017 750126 

PAU.E 74733 74733 24558-1X254 REV. 2001 750701 

. lOCfl 74734 74773 92828-1X327 REV. 2030 800,303 

19 PACES RELOCATED 19 PACES REQ'D NO PhCES EHA NO PAGES MSEC 

LINKS 1 BP PkOCRAMiBG LOaO.TF COMriCiN;MC 
XLOADRi JPLOT READY AT 3:57 PM TUE., 22 SEPT, 1581 

KLOAOR; »END 


J 


3 


0 
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APPENDIX D 


DATA BASE JAC70D & JAC71D 


ATSUKO COMPUTING INTERNATIONAL 
HUNTSVILLE, ALABAMA • USA 


(ii©D 


D-1 



JAC70D T-0C003 !S OH CR00033 USING 00005 OLKS R-0000 


0001 

♦♦START 'IHPUTl' DATA 

BASE 







0002 

ILAT - 19, ILNG - 

36 







0003 

XLATT - -090., -080., 

-070. ,- 

060. , 

-050. ,- 

040 . , - 

030. , 

-020. , 

-010., 000. 

0004 

010., 020., 

030., 

040. , 

050. , 

060, , 

070. , 

080. , 

090., 000. 

0005 

000., 000., 

000. , 

000. , 

000 . , 

000. , 

000. , 

000. , 

000., 000, 

0006 

000., 000., 

0 00. , 

000. , 

000. , 

000. , 

000 . . 

000. , 

000., 000, 

0007 

000., 000., 

000. , 

0 00 . , 

000. , 

000 . , 

000. , 

000. , 

000., 000. 

0008 

XLOHGC- 010., 020., 

030. , 

040 . , 

050. , 

060 , , 

070, , 

080 . , 

090., 100. 

0009 

110., 120., 

130. , 

140. , 

150. , 

160. , 

170. , 

180. , 

190., 200. 

0010 

210,, 220., 

230 . , 

240 . , 

250, , 

260 , , 

270. , 

280 . , 

290., 300. 

001 1 

310., 320., 

330. , 

340. , 

350. , 

360. , 

0 00. , 

0 00. , 

000., 000, 

0CH2 

000,, 000., 

0 00 . , 

0 00 . , 

000. , 

0 00 . , 

000. , 

0 0 0 . , 

000., 000. 

0013 

♦♦ END 'INPUTI ' DATA BASE 







0014 

♦* START '1NPUT2' DATA 

6 A S E 







0015 

12- 00,2- 185.0,XMJC- 0.0,F10 

- 100.0 

,F1 0B= 

1 00. 

0,GI = 

00, 0 

0016 

IVR»1968,MN=06, IDA- 

20, IHR- 

12, MIN-00 





0017 

ITEMP- 01,IXH2- 01, 

102- 01 

, 10- 

01 , IA« 

01 , IHE 

* 01 , 

IN- 01 

,1EM- 01 


0018 IDEN- OMOLOG- 01 
0018 ♦♦ end 'INPUT2' DATA BASE 



JAC71D T-00003 IS ON CR00037 USING 00005 BLKS R-0000 


0001 ♦♦START 'INPUT!' DATA BASE 

0002 ILAT - 19« ILNG - 36 


0003 

XLATT - 

“090, , -080 . , 

-070. ,- 

060., 

-050. , 

-040. ,- 

030. 

,-020. , 

-01 0. , 

000. 

0004 


010., 020., 

030., 

040. , 

050. , 

060. , 

070. 

, 080., 

090. , 

000. 

0005 


000,, 000., 

000. , 

000. , 

000. , 

000. , 

000. 

, 000., 

000. , 

000. 

0006 


000,, 000., 

000., 

000 . , 

000. , 

000. , 

000. 

, 000., 

000. , 

000. 

0007 


000., 000., 

000., 

000. , 

000. , 

000. , 

000. 

, 000., 

000. , 

000. 

0008 

XLONGG- 

010., 020., 

030. , 

040. , 

050. , 

060. , 

070. 

, 080., 

090. , 

1 00. 

0009 


110., 120., 

130., 

140. , 

150. , 

160. , 

1 70. 

, 180., 

190. , 

200. 

0010 


210. , 220. , 

230., 

240., 

250. , 

260. , 

270. 

, 280., 

290. , 

300. 

0011 


310., 320., 

330. , 

340., 

350. , 

360. , 

000 . 

, 000 . , 

0 00 . , 

000. 

0012 


000 . , 000 . , 

000., 

000. , 

000. , 

000 . , 

0 00. 

, 000 . , 

000. , 

000. 

0013 

♦♦ END -INPUTI ' DATA BASE 








0014 

♦♦ START ' 

IHPUT2' DATA 

BASE 








0015 

12« 00, 

2« 185,0,XMJD* 0. 

0,F1 0 

« 100. 

0,F1 0B» 

1 00. 0,GI- 

00.0 


0016 

IVR-»1968,MN=06, IDA- 

20,IHR- 

12, MIN-00 






0017 

I TEMP- 

01,IXN2- 01, 

102- 01 

, 10- 

01 , lA- 

01 , IHE 

» 01 

,IH- 01 

, lEM- 

01 


0018 IDEM- Ot^lDLOG- 01 

0019 ♦♦ END 'INPUT2' DATA BASE 



APPENDIX E 
TRANSFER FILES 


ATSUKO COMPUTING INTERNATIONAL 
HUNTSVILLE, ALABAMA • USA 


<Sl©D 


E-1 


SJAC70 T>0n004 IS ON CR00037 U8INC 00004 BLKS R-0000 




0002 

I* SJAC70 

-- REPLACES 

THE 

JACCHIA 'JAC70' 

PROGRAM 

•ill* 

0003 

» * 

EXECUTES 

THE 

JACCHIA 'k1AC70‘ 

PROGRAM 

•<>iii 

0004 

( * 

REMOVES 

THE 

JACCHIA 'JAC70' 

PROGRAM 

♦ Hi 


0005 I It! 4m|ii|m(i4' ><•>(< N"t<>f4<4' It) <!>>•' ■(<■«■<< 1"t< •<<•<■••••(< ■<■■•■ III iltiliiliifiti i|ii(i III 

0006 iLL^I 

0007 !RP,JrtC70 

0006 >* ^e<dCJAC70 ID SEGMENT HAS SEEN REPLACED M I (8.d6 « 

0009 IRU.0AC70 

0010 I-*- ^e.dCJAC70 PROGRAM IS NOW RUNNING M ! * 

00 n :OF,JAC70 

0012 )♦ ^fedCJAC70 7D SEGMENT HAS BEEN REMOVED M * 

0013 M 


) 


SCLJ70 T-00004 18 ON CR00037 USING 00004 BLKS R-0000 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 
0009 
OOtO 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 




** SCLJ70 — COMPILES i LOADS THE JAC70 PROGRAM. ** 

THE TYPE 6 LOAD MODULES IS THEN SAVED «« 
< jSP. JAC70U 37 > ON THE JACCHIA DISC ♦♦ 
** <LU#37>. *• 


*♦ TO RUN — ENTER »»\CU70,LL <LL —LIST DEVICE) ♦* 
LL^ 1 

♦ t«'<clCJAC70 IS NOW BEING COMPILED «. LOADED I H * 

OF. JAC70 

PU, JAC70i 1 37 

RU,FTN4N.e.JAC70j i 37 . I G . XJAC70 1 i37i i-1 
RU.LOADR. ' JAC70, . 1G 
PU. XJAC70! i37 
8P. JAC70: :37 

• t»].dCJAC70 PROGRAM IS NOW READY TO RUNIIIt««d9 



SJAC7t T-00004 16 ON CR00037 USING 00004 BLK8 R-0000 


0002 

1* SJAC7I 

— REPLACES 

THE 

JACCHIA 

' JAC7I ' 

PROGRAM 

■•■•li 

0003 

1* 

EXECUTES 

THE 

JACCHIA 

' JAC7I ' 

PROGRAM 

•K« 

0004 

1* 

REMOVES 

THE 

JACCHIA 

' JACrl ' 

PROGRAM 

■^■ti 


0005 i Itii«n|i4>i|iiti ■lilt' >!>><■ <#>(• ■*>«•>* ln*i> 

0006 iLL^I 

0007 ;RP,JrtC71 

0008 I* %tdCJf*C71 ID SEGMENT HAS SEEN REPLACED M I * 

0009 iRU,JAC7t 

0010 I* i^dCJAC71 PROGRAM IS NON RUNNING Nl («.d8 « 

OOn iOF<JAC7l 

0012 I* ^idCJAC7l ID SEGMENT HAS BEEN REMOVED I! tt«d8 * 

0013 II 


SCLJ7I T-00004 16 ON CR00037 USING 00004 6LK6 R-0000 


0001 

0002 

0003 

0004 

0005 

0006 
0007 

oooe 

0009 

0010 
001 1 
0012 

0013 

0014 

0015 

0016 

0017 

0018 




** SCLJ71 — COMPILES 6 LOADS THE JAC71 PROCRAM. •• 
♦♦ THE TYPE 6 LOAD MODULES IS THEN SAVED ** 
♦* < »SP, JAC71 m37> ON THE JACCHIA DISC *• 
K* <LU#37>. 

H«4i itiili 


TO RUN — ENTER nSCLJ71,LL <LL —LIST DEVICE) ♦* 
LL, 1 

• t«-rfCJAC71 IS NOW BEING COMPILED «, LOADEDMI^fcdO * 

OF, JAC71 

PU, JAC71 I >37 

RU,FTN4N,«,JAC71 « >37, 1G,^’JAC71 m37> >-1 
RU,LOADR, ' JAC71 , , 1C 
PU,XJAC71 m3? 

SP, JAC71 J :37 

* ^ii.dCJAC71 PROGRAM IS NOW READY TO RUNfM^^UO • 


SJPLOT T-00004 IS ON CR00037 U&INC 00004 BLKS R»0000 


0002 

»• SJPLOT 

■— REPLACES 

THE 

JACCHIA 'JPLOT' 

PROGRAM 

»* 

0003 

j * 

EXECUTES 

THE 

JACCHIA 'JPLOT' 

PROGRAM 

** 

0004 

1 ♦ 

REMOVES 

THE 

JACCHIA 'JPLOT' 

PROGRAM 

** 


0 0 05 |)4i4i4iiti4Mti4>>(>4<>(i4ii44i'4<4i44<4i4M(i4<>t'4<i<>4>i4iti4i4iiii44<if4"(i4'<44<i('4i4"<i'44<><"li4i4i4i4>4i4>4ii4'<'4<ti* 

0006 iLL,1 

0007 iRP,JPLOT 

0008 t* ^e<dCJPLOT ID SEGMENT HAS BEEN REPLACED I M tl.d» * 

0009 iRU,OPLOT 

0010 I* ^fedCJPLOT PROGRAM IS NOW RUNNING II I * 

0011 iOF.JPLOT 

0012 I* t^dCJPLOT ID SEGMENT HAS BEEN REMOVED I! ?.8.dS ♦ 

0013 M 


SCLJPL T-0D004 IS OM CP000S7 USING 00004 SLKS P-0000 


0001 

0002 

0003 

0004 

0005 

0006 
0007 
0006 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 
0017 
0016 




*• SCLJPL -- C0HPILE8 t LOADS THE JPLOT PROGRAM. ♦* 
♦* THE TYPE 6 LOAD MODULES IS THEN SAVED ** 
** < iSP. JPL0TU37) ON THE JACCHIA DISC *♦ 
** <LUN3?>. ♦♦ 
♦ ♦ * 1 * 


** TO RUN -- ENTER uSCLJPL.LL <LL --LIST DEVICE) ♦♦ 
LL, 1 

♦ t^dCJPLOT IS NOW BEING COMPILED 6 LOADED I I f ♦ 

OF, JPLOT 

PU, JPLOTi i37 

RU,FTN4X,e,JPLOTi i37, 1G,fi JPLOTi i37! t-1 
RU.LOADR, 'JPLOT, , 1G 
PU,XJPLOTi I 37 
SP, JPLOTi I 37 

♦ t^'dCJPLOT PROGRAM IS NOW READY TO RUNIH^i.d® ♦ 



